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"WHEN YOU CARE ENOUGH TO PROGRAM 
THE VERY BEST” 



ZGRASS V2.OOOOOOOO 
JAY FENTON 5 NOLA DONATO, AND 
(O 1978 


TOM DEFANTI 


© 

©/ 

INSERT As ZRAM.ASM 
.LINK 
»PREL 

.IDENT USEMAP 
.INTERN USEMAP 
.EXTERN ERRPGM 
.EXTERN FINDHASH 
.EXTERN NAMERR 
.EXTERN NLPNT 
.EXTERN NXTLNK 
.EXTERN NXTVAL 
.EXTERN PDECBC 
.EXTERN PRINTH 
.EXTERN PRTYPA 
„EXTERN TABPNT 

; ++++ 



5 USEMAP 

? COMMAND TO PRINT CORE DIRECTORY OF USED NAMES 

5 ON THE USERS TERMINAL 

5 FORMAT LOOKS LIKE'S 

5 NAME TYPE SIZE 

? NAME "ASCII NAME OF THING 

1 TYPE " TYPE OF THING (STRING, INTEGER) 

? SIZE - SIZE (IN BLOCKS) ALLOCATED TO IT 

7 

5 CALLS: 

? FINDHASH - FIND HASH PTR FOR IT 
i NXTLNK ~ GET NEXT NAME BLOCK 
5 DIRNAM - PRINT ENTRY FOR THE NAME 


M .CMDCUSEMAP,..USEX,0,AF I X C U 3 ,0,.. 
oooo-' 18 +USEMAP: .BYTE $CMI)ADR -V 


USEMK 
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ooo i 

04 + 

. BYTE 

(..USEX —USEMAP>/16+1 

0002 

00 + 

„ BYTE 

0 


0003 •" 

C42C + 

. WORD 

AFIXCUIIL' ( "LI"-- 

101Q) ■» 16+FSTI NT 1 

0005“ 

0011" + 

. WORD 

„.USEM 


0007 “ 

0000 + 

. WORD 

0 


0009 •" 

5553454D41504- 

.ASCIZ 

/USEMAP/ 



+ 3 




0010" 

00 

. BYTE 

0 3 NO 

SWITCHES 

0011 

..USEM " 




0011 

E5 

PUSH 

H 

5 SAVE PTR 

0012 

21 C2EC 

L.X I 

H.FSTINT 

5 FIRST NAME HDR 

0015" 

3E40 

MVI 

A, "A" — 1 

5 SECOND LETTER 

00.1.7" 

F5 

PUSH 

PSW 

5 SAVED FOR NEXT 

0018" 

3E24 

MVI 

A 7 "*" 

5 THIS IS FIRST 

001 A" 

CD 0000s 05 , ,Ul.s 

CALL 

FINDHASH 

5 FIND HASH PTR 

00 ID- 

E5 

PUSH 

H 

3 SAVE IT 

00 IE" 

CD 0000 s 08 . . IJ2 s 

CALL 

NXTLNK 

3 GET NAME BLOCK 

0021 " 

CA 002F" 

JZ 

u a U O 

5 NO MORE HERE? 

0024 " 


IN X 

H 

3 MOVE TO FLAGS 

0025 " 

oo 

INX 

H 


0026" 

7E 

MOV 

A,M 


0027 " 

2B 

DCX 

H 


0028" 

2B 

DCX 

H 


0029" 

07 

RL..C 


3 DO NOT PRINT 

002A" 

D4 003C" 

CMC 

DIRNAM 

5 IF NO DELETE SET 

002D " 

18EF 

JMPR 

. U2 

3 AND DO NEXT ONE 

002F " 

El . „U3: 

POP 

H 

3 GET PTR 

0030 " 

FI 

POP 

PSW 

3 AND LETTER 

0031 " 

FE5A 

CPI 

" Z " 

5 WAS Z? 

0033 " 

CA 003A" 

JZ 

. . USX 

3 YES? EXIT THEN 

0036 " 

3C 

I NR 

A 

5 BUMP IT 

0037" 

F5 

PUSH 

PSW 

3 SAVE IT 

0038" 

18E0 

JMPR 

. .U1 

3DIRC IT 

003A " 

El .. USXs 

POP 

H 


003B" 

C9 

RET 



003C " 

. USEX s 







3 DIRNAM 

5 PRINTS OUT A DIRCOR ENTRY FOR A GIVEN NAME 


NEEDSs 

HL -> NAME BLOCK 


T 


#***#*#•** 

? 

HL- 

TYPE tf 

? 


■to#*####*# 

B 

7 


> SIZE * 

7 



it : 

r 


# NAME * 

7 ' 


pi R # 


3 ' * * 

8 , 

^ ■ v, • 

'l 

", CALL 


($IADDR, $NAMADR) 
(IN 16 BYTE BLOCK 


****HHHHt* 
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003C 

003C " E5 


S PRINTHL -- PRINT ASCII STRING 
; PRTYPA -• PRINT TYPE j 

5 IMXTVAL. ~ GET VALUE FROM NAME 

$ TABF'NT - PRINT TAB 

S F’DECBC - PRINT DECIMAL NUM 

S NL.PNT -• PRINT NEWLINE 

a 

? 

m ._ 

DIRNAMs 

PUSH H 
5 PRINT THE NAME 


0030- 

01 0009 

LX I 

B»*NASCII 

■ GET NAME FIELD 

0040“' 

09 

DAD 

B 

5 HL->NAME 

0041 •“ 

CD 0000s OB 

CALL 

PRINTHL 

SPRINT NAME 

0044 •“ 

CD 0000sOD 

; + 

CALL 

TABPNT 

SAND TAB 


? PRINT THE TYPE 


« 

5 E IS THE SIZE OF THE NAME 


0047 “’ 

AF 

XRA 

A 

5 CLEAR A 

0048** 

f=*p 

MOV 

E, A 

?CLEAR E 

0049•“ 

El 

POP 

H 

S HL.—>TOP OF BLOCK 

004A-' 

E5 

PUSH 

H 

? 8 A V E A U A ]. N 

004B" 

7E 

MOV 

Ai M 

• A "-TYPE: 

004C ■“ 

FEOA 

CPI 

T-NAM A DR 

SIS NAME? 

004E 

200A 

JRNZ 

. »D1 

5 NO? INT OR FLT 

0050“' 

92 

I NX 

H 

SREMEMBER SIZE OF 

0051 " 

5E 

MOV 

E,M 

5 NAME BLOCK FOR 

0052“’ 

2B 

DCX 

H 

5 SIZE LATER 

0053“* 

CD 0000 s 09 

CALL 

NXTVAL 

5 HL-~>VALUE 

0056 

CA 0000*06 

JZ 

NAMERR 

S 0? ERROR THEN 

0059“* 

7E 

MOV 

A,M 

5 A=TYPE OF VAL 

005A 

CD 0000 s OC 

..D1s CALL 

PRTYPA 

SPRINT TYPE 

005D 

CD 0000”CD 

CALL 

TABPNT 

SAND TAB 



V ’ 

5 PRINT SIZE 





5 E = SIZE OF 

NAME BLOCK 

IF NOT INT VALUE 



5 ELSE E IS 0 

18 ^ 



0060“ 

?:-! 

7 

I NX 

H 

5 HL—>STZE 

0061“ 

7E 

MOV 

Ai M 

SA=SIZE OF VAL 

0062 “' 

o o 

ADD 

E 

5PLUS NAME SIZE 

0063“' 

6F 

MOV 

L.»A 

5HL=SIZE IN BLOCK: 



5 CL..R 

H 


0064“ 

AF 

XRA 

, A 


0065" 

67 

MOV 

H, A 

5 CLEAR H 

0066 “' 

29 

DAD 

H 

SHL«SIZE IN BYTES 

0067" 

29 

DAD 

H 


0068 " 

29 

DAD 

H 


0069 " 

29 

DAD 

H 




S MVD 

B,H 

S BC=SIZE TO PRINT 

006A" 

E5 

PUSH 

H 


006B " 

Cl 

Pup 

B 
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006C 

CEi 00008 OA 

CALL 

PDECBC 

”PRINT SIZE 

006F 

CD 0000s07 

CALL 

NLPNT 

5 AND NEWLINE 

0072-' 

El 

POP 

H 

5 RESTORE REGS 

0073-' 

09 

RET 




. END 
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PAC 

+++++ SYMBOL 

TABU 

Z. -I-* HI- -|~ 



AASN 

005F 

ADDON 

0001 


ARGSTK 

cocc 

BACKGR 

C5CC 

BLANK 

0020 

BOTRAM 

cooo 


BOTTOM 

C4A9 

CHARSL 

C5DD 

CLEARS 

COCA 

CNTRL 

oooc 


CNTRLC 

C5CD 

CNTRLO 

C5D9 

CNTRLU 

0015 

CNTRLZ 

C5E4 


CPLARE 

Cl 1C 

CPUSIz 

0140 

CR 

GOOD 

CSBLOK 

C68D 


CSFLAG 

C260 

CURCX 

C814 

CURCY 

C816 

CURREN 

C4A5 


C«CO 

0011 

C.C1 

0012 

C.CX 

OOOB 

C.CY 

GOOD 


C.DP 

0013 

C.ST 

0002 

C. X 

0003 

e. xf 

OOOF 


G. XS 

0007 

C. Y 

0005 

C. YF 

0010 

C. YS 

0009 


DDTON 

CSCE 

DEVCLO 

C579 

DEVCL.l 

C57B 

DEVCL2 

C57D 


DEVCL.3 

C57F 

DEVCL4 

CSS 1 

DEVGL5 

C5S3 

DEVCL.6 

}"** pj J~* p 


DEVCL7 

C587 

DEVFB 

G5CB 

DEVHCB 

C58F 

DEVMO 

C58B 


DEVNM 

G5B7 

DEVNT 

C58D 

DEVTMA 

C5BB 

DEVTNB 

C5BF 


DEVTNC 

C5C3 

DEVVA 

C5BD 

DEWAR 

C579 

DEWB 

CSC 1 


DEVVBL 

C591 

DEVVC 

C5C5 

DEVVD 

C5C9 

DEVON 

C5B9 


DEWS 

C5C7 

DEVXCD 

r.piBP, 

DEVYCD 

C5B5 

DIRNAM 

003C *** 


DOLPLH 

C2E8 

DOLPPT 

C2EA 

DUMBST 

C577 

EDBCNT 

C4AD 


EDCCNT 

C4A7 

LDLUNU 

C812 

EDMODE 

C81C 

EDNAME 

C4 A1 


EDNCX 

C80C 

EDNCY 

C80E 

EDMEWS 

C4A5- 

EDOCX 

0808 


EDOCY 

C80A 

EDPN 

G806 

EDPO 

C.80'4 

EDP.TRC 

C4AB 


EDPTRL 

C4A9 

EDSTR 

C81A 

ERASIT 

0002 

ERRPGM 

0000X04 

X 

ER.. ARA 

002F 

ER.ARC 

0034 

ER.ASN 

0015 

ER.BOX 

001A 


ER.CHN 

0002 

ER.CMD 

00 IF 

ER.CNV 

0016 

ER.COR 

00 IB 


ER. CTL. 

0036 

ER.DEL 

0026 

ER.DIM 

0030 

ER.DIV 

0018 


ER. DP 

0037 

ER.DSK 

0019 

ER.EDT 

0035 

ER.FMT 

0038 


ER.FNF 

001C 

ER.FOR 

0028 

ER.IMP 

0003 

ER.LAB 

0025 


ER.MAC 

0022 

ER.NAE 

002D 

ER.NAM 

0029 

ER.NEG 

003A 


ER.NOT 

0023 

ER.NUL 

0039 

ER.NUM 

002B 

ER.NXT 

001D 


ER.OFL 

0017 

ER.OPN 

0014 

ER.OVE 

00 IE 

ER.PAR 

002A 


ER.REN 

002C 

ER.RET 

0024 

ER.SEP 

0021 

ER.SNP 

0031 


ER.SPC 

002E 

ER.STK 

0004 

ER.SW 

0032 

ER.TER 

0020 


ER.UFL 

0033 

ER.UNF 

0027 

EXTDEL 

002E 

E.HVAL 

0002 


E.LVAL 

0001 

E.SIZ 

0005 

E. TYP 

0000 

E. VAL 

0001 


FCNTH 

C5D2 

FCNTI 

C5D3 

FCNTJ 

C5D4 

FCNTK 

C5D5 


FCNTL 

C5D6 

FCNTV 

C5E0 

FCNTY 

C5E3 

F1NDHA 

.0.000s'05 

X 

FIRST 

C4A3 

FLAGS 

C5CB 

FOREGR 

C5D0 

FRAGSI 

0400 


FREELS 

C5E5 

FSTDOL 

C48C 

FSTINT 

C2EC 

FWDPTR 

C5E7 


HCAREA 

C593 

INCRO 

C5E9 

■JUNK 

C540 

KBLOCK 

C5F1 


KEYFL.G 

C7FF 

KEYPTK 

C533 

KEYTRK 

C7F7 

L.F 

OOOA 


LISTON 

C5E2 

MACSTU 

C536 

MACTOP 

C25E 

MAXFRG 

0040 


MNMX 

C5EB 

NAMERR 

0000 s 06 

NBLKB 

0000 

NBLKM 

0001 


NEWBOT 

C810 

NL 

OOOA 

NLPNT 

0000:07 X 

NSADDR 

C802 


MUMBUF 

C4A3 

NXTLNK 

0000 5 08 

NXTVAL. 

0000:09 X 

OLDCHR 

G4A0 


OLDCUR 

C49F 

OLDKEY 

C49D 

OLDXY 

C5EF 

ONEBUF 

C729 


OPRL 

0014 

OPRSP 

C55B 

OPRSTK 

C547 

OPRSZ 

C55D 


OUTOFF 

C2E7 

PCNT 

C55E 

PDECBC 

0000 sOA X 

P LX VAL 

C5ED 


POINTE 

C4A7 

PONOFF 

C5DA 

PRINTH 

0000sOB X 

PRTYPA 

00005 oc 

X 

RAMEND 

DFFF 

RAMSTR 

C900 

RANSHT 

C55F 

RMDTMP 

C538 ' 


RUBACK 

0005 

RUBOUT 

007F 

SAVESP 

C25C 

SCNEED 

0004 


SCRWIN 

C7CD 

SOPRSP 

C53D 

SOPRSZ 

C53F 

STACK 

C0C8 


STAKTO 

COOO 

STRS1Z 

C800 

SUBSTU 

C534 

TAB 

0009 


TABPNT 

00005OD X 

TAPBUF 

L-4B8 

TAPCON 

C4AF 

TAPPED 

C4B1 


TBFEND 

C533 

TEMPHD 

COCA 

TEMPS 

C2E5 

TMPARG 

C7AD 


TOP 

C818 

TTYBEG 

C261 

TTYEND 

,C2E1 

TTYINT 

C2E3 


TTYPTR 

C2E1 

TXTWIN 

C7E2 

UARTFL 

C49C 

USEMAP 

0000 •" 

I 

USREND 

C5F1 

V3PTR 

C573 
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“I- 

SYMBOL 

TABLE 

4* "}•• “h 






VDCHAR 

C49E 


VDNLF 

C5CF 

VIPLH 

C545 

VOICEO 

C563 

WRMODE 

C5EE 


ZGIM2 

0001 

ZGREND 

C81D 

SAADR 

0010 

SADDRF 

0007 


SADDRI 

0005 

$ADDRS 

0009 

SANY 

001A 

SANYNA 

FFFC 


sanyva 

FFFE 

SARGPT 

0011 

SBGF'TR 

OOOF 

SBNDL 

0007 


SCALLE 

OOOD 

SCMDAD 

0018 

SCPLBL 

002A 

SCSBLO 

0028 


SDATAP 

0007 

SDOLDE 

0001 

SDOLOO 

0002 

SDVAL 

0000 


SEND 

001C 

SFADR 

OOOE 

♦FLAGS 

0002 

SFORBL. 

0024 


SFORPT 

OOOB 

SFVAL.. 

0006 

SGOSUB 

001A 

$ I ADR 

OOOC 


SINPBU 

0018 

SINPPT 

0016 

SIVAL 

0004 

SKEYBL 

0026 


SLENGT 

0001 

SLINPT 

0005 

SLOCPT 

0009 

SMIBBL 

0022 


SMIBEN 

001B 

SNAMAD 

OOOA 

SNAME 

OOOA 

♦NASCl 

0009 


SNDEL 

0080 

SNLIMK 

0003 

♦NULL 

0002 

SNVALU 

0005 


SREPEA 

00 IE 

SRVSTU 

0013 

SSAME 

0020 

SSASCI 

OOOA 


SSLEN 

0006 

SSTRAD 

0008 

SSTRPT 

0003 

staf 

0000 


♦TYPE 

0000 

SUSE 

0005 

.BLNK. 

0000 

.DATA. 

0000* 

X 

«PROG# 

0074" 5 

< 
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MOD 


.INSERT AsS.ASM 

@. remark: / 


e 

e 

e 

@ 

e 

e 

© 

e 

@ 

@ 

e 

e 


# 

# # # 

### 

###*#** 

# 

# 

# 

* 

* 

*#####* 

"WHEN YOU CARE ENOUGH TO PROGRAM 
THE VERY BEST" 


e 

@ ZGRASS V2.OOOOOOOO 

©BY JAY FENTON, NOLA DONATO, AND TOM DEFANTI 

© CO 1978 


e/ 

„INSERT 
.INSERT 

e. 

.. INSERT 


As ZRAM.ASM 
As MAC.ASM 


ASNCUEQU.ASM 
.LINK 
. PREL 

.IDENT MOD 
.INTERIM MODIFY 
.EXTERN ARG 
.EXTERN CARTYP 


.EXTERN DONCU 
.EXTERN ERRPGM 
.EXTERN HEXHL 
.EXTERN HEXBYT 
.EXTERN IGET 
.EXTERN INHEX 
.EXTERN INPTTY 
.EXTERN IPOP 
.EXTERN IPUSH 


.EXTERN IYNCU 
.EXTERN KLB 
.EXTERN NAMADR 
.EXTERN NAMSET 
.EXTERN NLPNT 
.EXTERN NXTABC 
.EXTERN NXTLNK 
.EXTERN NXTPTR 
.EXTERN NXT'VAL 
.EXTERN OIJTCH 
.EXTERN PDECBC 
.EXTERN PRINTF 
.EXTERN RRINTHL 
.EXTERN PRTYPA 
.EXTERN SRCHOPR 
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MOD 


.EXTERN TABPNT 


?MODIFY COMMAND 

M. CMD.C MODIFY, . M0DX,0,MF, . . MOD A, . MODI 3 L 


OOOO 

18 

+MODIFY* 

.BYTE $CMDADR 


oooi 

OD 

+ 

.BYTE <.■.MODX-MODIFY)/16+1 

0002" 

00 

+ 

.BYTE 0 


0003 •" 

OOC1"' 

Hh 

.WORD MF 


0005 

0030*" 

4* 

.WORD ..MODI 


0007 •" 

0010"' 

*4 

.WORD ..MODA 


0009 *" 

404F444946- 

59+ 

+ 3 

..MODA * 

.ASCII /MODIFY/ 


0010"' 

63 

.BYTE 99 

?SPECIAL 

0011 •" 

484558455850 

. ASCIZ /HEXEXF'R 

(I.E. NAME+HEX OR HEX)/ 

0030 **■ 

CD 0000*10 

„.MODI * 

CALL KLB 

SKILL BLAMX 

0033 ’" 

DDES 


PUSH X 

"SAVE X 

0035" 

CD 0059" 


CALL ..GHEX 

? GET HEX 

0038*" 

D5 


PUSH D 

? SAVE VALUE 

0039*" 

CD 0074' 

..MORE* 

CALL ..OPR 

? GET OPERATOR 

003C *" 

3850 


JRC ..EX 


003E •" 

CD .0059' 


CALL ..GHEX 

5 NEXT VALUE 

0041 

D5 


PUSH D 


0042 *’■ 

E5 


PUSH H 

5 GET THE SUBROUTINE 

0043 •" 

DD6E04 


MOV L. i 0. SUB ( X ) 

0046 •" 

DD6605 


MOV H i 0.SUB+1(X) 

0049"' 

E5 


PUSH H 


004A"' 

DDE 1 


POP X 

5 INTO X 

004C-" 

El 


POP H 

JSR XL' 


004D"' 

DDES 

+ . IFIDN 

C X 3 T X 3 i C 

PUSH X 

004F 

DD21 0057" 

*4 

LX I X,..0001 


0053'" 

DDES 

4 

XT IX 


0055" 

DDE9 

■4 

PC IX 




+ 3 



0057 "' 

18E0 


JMPR ..MORE 

? GOON 

0059 

CD 0000«05 

„ . GHEX * 

CALL CARTYP 

ZERROR ER.MUM i 

5 IS ALPHA, ETC. 

005C 

2004 

4- 

JRNZ .„0002 


005E'" 

CD 0000*07 

4 

CALL ERRPGM 


0061 

2B 

4 

.BYTE ER.num 


0062"' 


+.„0002s 

3 


0062'" 

3004 


JRNC ..ALPH 


0064 •" 

CD 0000*OB 


CALL INHEX 


0067"' 

C9 


RET 


0068 •" 

CD 0000*12 

..ALPHs 

CALL NAMSET 


0O6B" 

AF 


XRA A 


006C"' 

CD 0000*11 


CALL NAMADR 


006F"' 

C8 


RZ 

ERROR ER.NAMEC 


0070" 

CD 0000*07 

-4 

CALL ERRPGM 


0073'" 

29 

4 - 

.BYTE ER.NAME 




4*3 



0074"' 

C5 

-.OPRs 

PUSH B 

5SEE NOLA'S EVAL r 

0075"' 

D5 


PUSH D 


0076"' 

4E 


MOV C>M 

* • L 
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0077 *“ 



IMX H 

0078*' 

11 00B4"' 


LXI D,..MTAB 

007B *“ 

C3 0000s ID 


JMP SRCHOPR 

007E-' 

Cl 

.„MADDs 

POP B 

007F *“ 

D1 


POP D 

0080-'* 

E3 


XTHL 

0081 •“ 

19 


DAD D 

0082 •" 

E3 


XTHL 

0083 *“ 

C5 


PUSH B 

0084 ■" 

C9 


RET 

0085 •“ 

Cl 

.„MSUBs 

POP B 

0086 

D1 


POP D 

0087'' 

E3 


XTHL 




CL.C t 

0088 *“■ 

B7 

•h 

ORA All 

0089 *“ 

ED52 


DSBC D 

008B 

E3 


XTHL 

008C *“ 

C5 


PUSH B 

008D 

C9 


RET 

008E *“ 

D1 

. .EX: 

POP D ;GET VALUE OFF STACK 

008F *“ 

CD 0000513 

, .. DEXs 

CALL NLF'NT 

0092““ 

7 A 


MOV A 7 D 5 PRINT ADDRESS STRAIGI 

0093*“ 

CD 0000:09 


GALL HEXBYT 

0096" 

7B 


MOV A,E 

0097 •" 

CD 0000:09 


CALL HEXBYT 

009A •" 

3E3D 


MVI A, " 

009C'" 

CD 0000:18 


CALL. DUTCH 

009F 

1A 


LDAX D 5 GET VALUE BACKWARDS 

OOAO 

CD 0000:09 


CALL HEXBYT 

00A3 

13 


INX D 

00A4 •" 

1A 


LDAX D 

00A5"' 

CD 0000:09 


CALL HEXBYT 

00 AS" 

13 


INX D 

00 A 9 •" 

7E 


MOV Aj M 

00 A A 

FE2C 


CPI ? COMMA MEANS PRINT ON 

OOAC 

28E1 


JRZ ..DEX 

00 AE 

CD 0000:13 


CALL NLF'NT 

.00 B1 

DDE 1 


POP X 

00B3 

C9 


RET 

00B4 •" 


..MTABs 

OPER " +•••, ,0,0, „ „ MADDC 

00B4 

2B 

HI" 

.BYTE 

OOB5-" 

00 

-K ifb i:::! 

, [.BYTE 03 C.BYTE 3 

00 B 6 •" 

00 


.BYTE 0 

00B7 

00 


„BYTE 0 

00B8"' 

007E 


.WORD ..MADD3 




OPER -• •" ,,0, 0, . . MSUB Z 

OOBA'" 

2D 

¥ 

.BYTE 

OOBB" 

00 

IFB LI 

, t .BYTE 03 I.BYTE 3 

OOBC"' 

00 

4 

.BYTE 0 

OOBD " 

00 

•4 

.BYTE 0 

OOBE •" 

0085 •" 

■4 

.WORD ..MSUB3 

OOCO 

00 


.BYTE 0 

OOC 1 •" 


..MODX: 



; MF COMMAND - PRINTS OUT FLOATING POINT VALUE OF RATION 
AL NUMBER 
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MOD , ™ 


5 A/Bv COMMAND FORMAT: MF A,B 
M.CMDCMFV. iMFXvOj AFIXCM3. . .MFA,. ,MFSH 


00Cl 

18 

+MFs 

.BYTE 

$CMDADR 

00C2 

04 

4* 

. BYTE 

(..MFX-MF)/16+1 

00C3" 

00 

4 

.BYTE 

0 

0OC4" 

C3AC 

4* 

. WORD 

AFIX CM J C("M"-101Q)*16+FSTINT 1 

00C6 •- 

00 CD y 

•4 

„ WORD 

. . MFS 

00G8 

OGDO " 

4* 

. WORD 

. . MFA 

COCA 

4D4600 

4* 

j,. i 

.ASCIZ 

/MF/ 

GOOD ■" 

CD 0000:04 

..MFS: 

L* ALL. 

ARG 

OODO 

0600 

..MFA: 

„ BYTE 

$FVAL, $TAF 

00D2" 

E5 


PUSH 

H 

00D3-' 

CD OGOO:OF 


CALL 

IYNCU 

ODD 6 -* 

CD 00005OD 


CALL 

I POP 

ODD? 

7 A 


MOV 

A,D 

OODA-' 

CD 0000 5 09 


CALL 

HEXBYT 

OODD 

7B 


MOV 

A,E 

CODE-’ 

CD 0000509 


CALL 

HEXBYT 

DOE1 ■" 

CD 00005 OD 


CALL 

I POP 

00E4 

7A 


MOV 

A,D 

.GOES'" 

CD 0000:09 


CALL 

HEXBYT 

00E8" 

7B 


MOV 

A, E 

GOES" 

CD 0000:09 


- CALL 

HEXBYT 

OOEC" 

CD 0000:13 


CALL 

NLPNT 

OOEF " 

El 


POP 

H 

OOFO " 

C9 


RET 


OOFi " 


. MFX: 




. END 




TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
MOD 

+++++ SYMBOL TABLE +++++ 


AASN 

005F 

BACKGR 

cscc 

CARTYP 

0000 505 

CNTRLC 

C5CD 

CPLARE 

Cl 1C 

CSFLAG 

C260 

C# CO 

0011 

C. DP 

0013 

C. XS 

0007 

DDTON 

C5CE 

DEVCL3 

C57F 

DEVCL.7 

C587 

DEVNM 

C5B7 

DEVTNG 

C5C3 

DEVVBL 

C591 

DEWS 

C5C7 

DOLPPT 

C2EA 

EDCeiMT 

C4A7 

EDNCX 

C80C 

EDOCY 

C80A 

EDPTRL 

C4A9 

ER.ARA 

002F 

ER.CHN 

0002 

ER.CTL 

0036 

ER. DP 

0037 

ER.FNF 

001C 

ER.MAC 

0022 

ER.NOT 

0023 

ER.OFL 

0017 

ER.REN 

002C 

ER,SPC 

00.2E 

ER,URL 

0033 

E.LVAL 

0001 

FC.Kl.TH.' 

G5D2 

FCNTL 

C5D6 

FLAGS 

C5CB 

FST’DOL 

C48C 

HEXBYT 

OOOOs09 

INHEX 

0000 sOB 

IYNCU 

0000sOF 

KEYPTK 

0533 

LISTON 

C5E2 

MF 

0001 x 

NAMADR 

OOOOs11 

NCUCOM 

0029 

NLPNT 

0000513 

NXTLNK 

0000515 

N. ARG 

0003 

N.CHSF 

0015 

N.DDIV 

002F 

N.DSUB 

002D 

N. EXP 

000A 

IM.FIXS 

00 IF . 

N.FSUB 

0011 

N.NQP 

0000 


ADDON 0001 
BLANK 0020 
CHARSL C5DD 
CMTRLO C5D9 
CPLSIZ -0.140 
CURCX C814 
CL Cl 0012 
C.ST 0002 
C.Y 0005 

DEVCLO C579 
DEVCL4 C581 
DEVFB C5CB 
DEVNT C58D 
DEVVA C5BD 
DEVVC C5C5 
DEVXCD C5B3 
DONCU 0000:06 X 
EDLONG C812 
EDNCY C80E 
EDPN C806 
EDSTR C81A 
ER.ARG 0034 
ER.CMD 00IF 
ER.DEL 0026 
ER.DSK 0019 
ER.FOR 0028 
ER.NAE 002D 
ER.NUL 0039 
ER.OPN 0014 
ER.RET 0024 
ER.STK 0004 
ER.UNF 0027 
E.SIZ 0005 
FONTI C5D3 
FCNT'V C5E0 
FOREGR C5D0 
FSTINT C2EC 
HEXHL 0000s08 X 
INPT-TY 00005 OC X 
JUNK C540 
KEYTRK C7F7 
MACSTU C536 
MNMX C5EB 
NAMSET 0000512 X 
NCUDAT 0028 
NSADDR C802 ‘ 
NXTPTR 0000516 X 
N.ASIN 0005 
N.CHSS 0074 
N.DIV 0004 
N.EMAX 0017 
N.FADD 0010 
N.FLTD 001C 
N.LN 0009 
N.OFLO 0001 


ARG 

OOOOs04 

X 

BOTRAM 

cooo 


CLEARS 

COCA 


CNTRLU 

0015 


GR 

GOOD 


CURCY 

C816 


c.cx 

OOOB 


c.x 

0003 


C.YF 

0010 


DEVCL1 

C57B 


DEVCL5 

C583 


DEVHCB 

C58F 


DEVTNA 

C5BB 


DEWAR 

C579 


DEVVD 

C5C9 


DEVYCD 

C5B5 


DUMB8T 

C577 


EDMODE 

C81C 


EDNEWS 

C4A5 


EDPO 

C804 


ERABIT 

0002 


ER.ASN 

0015 


ER.CNV 

0016 


ER.DIM 

0030 


ER.EDT 

0035 


ER.IMP 

0003 


ER.NAM 

0029 


ER.MUM 

002B 


ER.OVE 

00 IE 


ER.SEP 

0021 


ER»SW 

0032 


EXTDEL 

002E 


E.TYP 

0000 


FCNTJ • 

C5D4 


FCNTY 

CSE3 


FRAGSI 

0400 


FMDPTR 

C5E7 


I GET 

0000:OA 

X 

■I POP 

0000:OD 

X 

KBLOCK 

C5.F 1 


KLB 

0000:10 

X 

MACTOP 

C25E 


MODIFY 

0000 x 

I 

NBLKB 

0000 


NEWBOT 

C810 


NUMBUF 

C4A3 


NXTVAL 

0000517 

X 

N.ATAN 

0007 


N.COS 

0003 


N.DMUL 

002E 


N.EMIN 

, j™ p,/», *../ 


N.FDIV 

0013 


N.FLTS 

00 ID 


N. LOG 

0008 


N.POPD 

0038 



PAGE 


ARGSTK 

cocc 


BOTTOM 

C4A9 


CN'TRL 

oooc 


CNTRLZ 

C5E4 


CSBLOK 

C68D 


CURREN 

C4A5 


C.CY 

GOOD 


C. XF 

GOOF 


C. YS 

0009 


DEVCL2 

C57D 


DEVCL6 

CSS 5 


DEVMO 

C58B 


DEVTNB 

C5BF 


DEVVB 

CSC 1 


DEVVN 

C5B9 


DOLPLH 

C2E3 


EDBCNT 

C4AD 


EDNAME 

C4 A1 


EDOCX 

G808 


EDPTRC 

C4AB 


ERRPGM 

0000s 07 

X 

ER.BOX 

001A 


ER.COR 

00 IB 


ER.DIV 

0018 


ER.FMT 

0038 


ER.LAB 

0025 


ER.NEG 

003A 


ER.NXT 

001D 


ER.PAR 

002A 


ER.SNP 

0031 


ER.TER 

0020 


E.HVAL 

0002 


E. VAL 

0001 


FCNTK 

C5D5 


FIRST 

G4A3 


FREELS 

C5E5 


HCAREA 

C593 


INCRO 

C5E9 


I PUSH 

OOOOs OE 

X 

KEYFLG 

C7FF 


LF 

OOOA 


MAXFRG 

0040 


M.POPS 

0078 


NBLKM 

0001 


NL. 

OOOA 


NXTABC 

0000s14 

X 

N,ACOS 

0006 


N,CHSD 

0Q34 


N„DADD 

002C 


N.DMUU 

0036 


N.ESGN 

0040 


N.FIXD 

00 IE 


N.FMUL 

0012 


N.MSGN 

0080 


N.POPF 

0018 
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MOD 

- 









+++++ : 

SYMBOL TABLE 








N.PTOD 

0037 


N.PTOF 

0017 

N.PTOS 

0077 


N.PUPI 

001A 

N.PWR 

OOOB 


N.SADD 

006C 

IM.SDIV 

006F 


N.SIGN 

0040 

N.SIN 

0002 


N.SMUL 

006E 

N.SMUU 

0076 


N.SQRT 

0001 

N„SSUB 

00 AD 


N.TAN 

0004 

N. IJFLO 

0002 


N.XCHD 

0089 

N.XCHF 

0019 


N.XCHS 

0079 

N.ZERO 

0020 


OLDCHR 

C4A0 

OLDCUR 

C49F 


OLDKEY 

C49D 

OLDXY 

C5EF 


ONEBIJF 

C729 

OPRL 

0014 


OPRSP 

C55B 

OPRSTK 

C547 


OPRSZ 

C55D 

DUTCH' 

0000s18 

X 

OUTOFF 

C2E7 

0.CHAR 

0000 


0.PREC 

0002 

O.SIZ 

0006 


0. SUB 

0004 

O.TYP 

0003 


PCNT 

C55E 

PDECBC 

0000s19 

X 

F'lXVAL 

G5ED 

POINTE 

C4A7 


PONOFF 

C5DA 

PRINTF 

OOOOs1A 

X 

PRINTH 

OOOOsIB X 

PRTYPA 

OOOOs1C 

X 

RAMEND 

DFFF 

RAMSTR 

C900 


RANSHT 

C35F 

RMDTMP 

C538 


RUBACK 

0005 

RUBOUT 

007F 


SAVESP 

C25C 

SCNEED 

0004 


SCRWIN 

C7CD 

SOPRSP 

C53D 


SOPRSZ 

C53F 

SRCHOP 

OOOOsID 

X 

STACK 

C0C8 

STAKTO 

cooo 


STRSIZ 

CSOO 

SUBSTU 

CSS 4 


TAB 

0009 

TABPN.T 

OOOOSIE 

X 

TAPBUF 

C4B3 

TAPCON 

C4AF 


TAPPRO 

C4B1 

TBFEND 

C533 


TEMPHD 

COCA 

TEMPS 

C2E5 


TMPARG 

C7AD 

TOP 

C818 


TTYBEG 

C261 

TTYEND 

C2E1 


TTYINT 

C2E3 

TTYPTR 

C2E1 


TXTWIN 

C7E2 

UARTFL 

C49C 


USREND 

C5F1 

V3PTR 

C573 


VDCHAR 

C49E 

VDNLF 

C5CF 


VIF'LH 

C545 

VOICED 

C563 


WRMODE 

C5EE 

ZGIM2 

0001 


ZGREND 

C81D 

♦A ADR 

0010 


♦ADDRF 

0007 

♦ADDRI 

0005 


♦ADDRS 

0009 

♦ANY 

001A 


♦ANYNA 

FFFC 

♦ANYVA 

FFFE 


♦ARGPT 

0011 

♦BGPTR 

OOOF 


♦BNDL 

0007 

♦CALLE 

OOOD 


♦CMDAD 

0018 

$CPLBL 

002A 


♦CSBL.0 

0028 

♦DATAP 

0007 


♦DOLDE 

0001 

♦DOLOO 

0002 


♦OVAL 

0000 

♦END 

001C 


♦FADR 

OOOE 

♦FLAGS 

0002 


♦FORBL 

0024 

♦FORPT 

OOOB 


♦FVAL. 

0006 

♦GOSUB 

001A 


♦ I ADR 

OOOC 

♦ I NF'BU 

0018 


♦ I NPF'T 

0016 

♦ IVAL 

0004 


♦KEYBL 

0026 

♦LENGT 

0001 


♦LINPT 

0005 

♦LOCPT 

0009 


♦MIBBL 

0022 

♦MIBEN 

00 IB 


♦NAMAD 

OOOA 

♦NAME 

OOOA 


♦NASOI 

0009 

♦NDEL 

0080 


♦MLINK 

0003 

♦NULL 

0002 


♦NVAUJ 

0005 

♦REPEA 

00 IE 


♦RVSTU 

0013 

♦SAME 

0020 


♦SASCI 

OOOA 

♦SLEN 

0006 


♦STRAD 

0008 

♦8TRPT 

0003 


$TAF 

0000 

♦TYPE 

0000 


♦USE 

0005 

. BI..MK - 

0000 s 03 

X 

.DATA. 

0000# X 

.PROG. 

OOF 1 

X 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
SUB -■ ZGRASS SUBROUTINES 


.INSERT AsS.ASM 


@.REMARK / 

e 

•8 

@ 

# * -ft 

@ 


e 

ft#####* 


•ft 


ft 


•ft 

@ 

ft 

@ 

ft 

e 

ftftftftftftft 

VS 



@ "WHEN YOU CARE ENOUGH TO PROGRAM 

@ THE VERY BEST" 

@ 

@ ZGRASS V2.00000000 

@BY JAY FENTON, NOLA DONATO, AND TOM DEFANTI 

@ (C) 1978 

@/ 

.INSERT As ZRAM.ASM 
.LINK 
„ PREL 

.IDENT SUB 
.EXTERN ALLOC 
.EXTERN ARGL.IN 
.EXTERN DELMIB 
.EXTERN ERRPGM 
.EXTERN FREE 
.EXTERN GETOPND 
.EXTERN OUTCH 
.INTERN ACOPY 
.INTERN CARTYA 
„ INTERIM CARTYP 
.INTERN CLEAR! 

.INTERN DECSIY 
.INTERN FINDLAB 
.INTERN GETLPT 
.INTERN HEXBYT 
. INTERN HEXI-IL 
.INTERN INC5IY 
.INTERN INHEX 
.INTERN ISNL 
.INTERN ISTERM 
„INTERN KISNL 
.INTERN KLB 
„INTERN NLPNT 
. INTERN NX'T'ABC 
.INTERN NXTLNK 
.INTERN NXTPTR 
.INTERN NXTVAL 
.INTERN PDECA 
.INTERN PDECBC 
.INTERN PRINTA 
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TDL Z80 CF’/M DISK ASSEMBLER VERSION 
SUB - ZGRASS SUBROUTINES 


.INTERN 
.INTERN 
„INTERN 
INTERN 
.INTERN 
.INTERN 
„INTERN 
.INTERN 
.INTERN 
,INTERN 
,INTERN 
.INTERN 


PRINTFF 

PRINTHL 

F'UTLPT 

SCANS 

SCANLAB 

SCANNL 

STREQK 

SWITCH 

TABPNT 

TEMPCHN 

TEMPUNCH 

WARNFF 


OOOO-' CD GOOD " WARNFF s 

0003 5741524E494E 


CALL PRINTFF 
» ASCIZ /WARNING: / 




5PRINTFF—PRINT STRING FOLLOWING IN LINE TILL 



•5 NULL I 

S SEEN 


GOOD 

F;:; 

PRINTFF 

s XTHL 

?SAVE HLi GET PTR 

OOOE 

7E 

..LOOPS 

MOV A,M 

’GET THE CHARACTER 

OOOF 

23 


I NX H 

5 BUMP HL 

0010 •- 

A7 


ANA A 

?IS NULL? 

0011 ■" 

2305 


•JRZ ..QUIT 

; YUP 

0013 - 

CD 0000sOA 


CALL OUTCH 

3 PUTITOUT 

0016 ' 

18F6 


■JMPR . . LOOP 

3 MORE 

0018-' 

E3 

..QUITS 

XTHL 

3 AGAIN 

0019" 

C9 


RET 




,5PRINTHL—-PRINT STRING HL->AT UNTIL A NULL 

001 A" 

AF 

PRINTHL 

s XRA A 3 NULL A 




SPRINTA 

--PRINTS WHAT HL- 

>AT UNTIL DELIM 




IN A SEEN OR A 

NULL IS FOUND 



5 HL IS 

ADVANCED TO POINT 

PAST DELIMITER 

00 IB*" 

C5 

PRINTAs 

PUSH B 


001 c •- 

4F 


MOV C 7 A 

? COPY 

00 ID*" 

7E 

..LOOPS 

MOV A,M 

3 GET CHAR 

00 IE*" 

2 •-.» 


INX H 


00 IF"' 

B 7 


ORA A 

3 IS NULL? 

0020 ' 



JRZ ..QUIT 

3 YAS 

0022 ' 

B? 


CMP C 


0023*" 

2805 


JRZ ..QUIT 


0025" 

CD 0000 sOA 


CALL OUTCH 


0028*" 

18F3 


JMPR „.LOOP 


002A *" 

Cl 

..QUITS 

POP B 


002B 

C9 


RET 




5NLPNT 

AND TABPNT—PRINT 

S NL. "S AND TABS 

002C "' 

3E0A 

NLPNTs 

MVI A i NL 


002E **' 

1802 


JMPR TABPN1 


0030 *" 

; 3E20 

TABPNTs 

MVI A, "' "' 








TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
SUB - ZGRASS SUBROUTINES 
PRINT ROUTINES 


0032 *** 

CD 0000!OA 

TABPN1: 

CALL DUTCH 


0035**' 

09 


RET 




? PDECA-- 

-PRINTS CONTENTS 

OF A AS UNSIGNED 



H 

DECIMAL NUMBER 


0036-' 

05 

PDECA! 

PUSH B 5 SAVE BC 


0037 

4F 


MOV Cv A 5 STORE A IN BC 

0038" 

0600 


MVI B,0 


003A "' 

1801 


JMPR F'DECBl 

;PRINT BC 



? PDECBC 

—PRINT BC AS 16- 

BIT SIGNED # 

00 SC*" 

05 

PDECBC! 

PUSH B 


003D "' 

D5 

PDECB1! 

PUSH D 


003E 

E5 


PUSH H 


003F" 

21 0082"' 


LXI H,..DTBL 

? HL->DIVIDE TABLE 

0042 •" 

E5 


PUSH H 


0043 

60 


MOV Hi B 

'PUT BC IN HL 

0044 

69 


MOV L,C 


0045 *“ 

78 


MOV A,B 

5 CHECK FOR NEGATIVE 

0046 

A7 


ANA A 


0047" 

F2 0052"' 


UP „.PLUS 


004A-' 

3E2D 


MVI A, 

iPUT OUT A - 

004C *** 

CD 0000!OA 


CALL DUTCH 


004F 

CD 0080*** 


CALL ABS 

5 5 NEGATE IT 

0052" 


„.PLUS: 





?NOW WE 

HAVE HL=WHAT-S L 

.EFT, SP->DIV TABLE 



? USE B 

FOR LOOP COUNT AND C-LZ SUPPRESS FLAG 



" DE IS 

THE SUBTRACTOR 


0052*** 

01 0501 


LX I Bi501H 

5 INITIALIZE (SURE) 

0055 x 

E3 

..LOOP s 

XTHL. 

?HL—>TOP 

0056**’ 

5.E 


MOV Ei M 

? GET SIJBRTRACTOR 

0057 -* 



INX H 


0058 > 

56 


MOV D,M 


0059 *** 



I NX H 


005A 

po 


XTHL 

5 BACK TO WHAT-'S LEFT 

005B**’ 

AF 


XRA A 

;CLEAR CURRENT DIGIT 

005C *’* 

ED52 

..SUBT: 

DSBC D 


005E **’ 

-CB7C 


BIT 7,H 5 DID WE 

GO -? 

0060*** 

2003 


JRNZ „.MINU 


0062 *** 

3C 


I NR A 


0063"' 

18F7 


.JMPR . . SUBT 




5 RESULT 

WENT NEGATIVE, CORRECT IT 

0065"' 

19 

..MINUS 

DAD D 


0066 •" 

A7 


ANA A 

?IS DIGIT 0? 

006 Z" 

2003 


JRNZ „.PRNT 


0069"' 

B1 


ORA C 

'HAVE WE PRINTED A 0 





?BEFORE? 

006A 

2007 


JRNZ . .'SKLZ 


0060 -' 

C630 

. . F'RNT: 

ADI "0" 

TMAKE INTO ASCII 

006E-' 

CD 0000!OA 


CALL DUTCH 

? AND PRINT IT 

0071"' 

OEOO 


MV I C, 0 

? SET LZ FLAG 

0073"' 

1OEO 

.„SKLZ! 

DJNZ ..LOOP 

?LOOP BOTTOM 

0075"' 

OB 


DCF: C 

"WAS NUMBER ZERO? 

0076"' 

2005 


JRNZ ..DONE 

5 NOPE 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
SUB - ZGRASS SUBROUTINES 
PRINT ROUTINES 


0078 x 

3E30 


MVI A 7 'O' ? PUT OUT A ZERO 

007A •* 

CD 00005OA 


CALL DUTCH 

007D 

El 

..DONE5 

POP H 

007E y 

El 


POP H 

007F x 

D1 


POP D 

0080 ■“ 

Cl 


POP B 

0081 *" 

C9 

?DIVIDE 

RET 

TABLE FOLLOWS 

0082 

2710 03E8 

DTBLs 

.WORD 10000,1000 7 100 7 10 7 1 




? COMPUTE ABS (HD 


008C *“ 

7C 

ABS « 

MOV A,H 


oosD 

A7 


ANA A 


008 E-' 

FO 


RP 


oosF 

2F 


CM A 


0090 •" 

67 


MOV H, A 


0091 •' 

7D 


MOV A,L 


0092 y 

2F 


CM A 


0093 •** 

6F 


MOV I.- , A 


0094 •" 

23 


INX H 


0095 x 

C9 


RET 




?INHEX” 

“GETS VALUE IN 

DE FROM HEX CHARS HL~>AT 

0096 ■“ 

C5 

INHEX 5 

PUSH B 


0097 y 

11 0000 


LX I D ? 0 

;ACCUMULATOR 

009A •' 

CD 025F-" 

„„SCANS 

CALL CARTYP 

?IS NUMBER OR NAME? 

009D •“ 

7E 


MOV A 7 M 

? GET CHAR ANYWAY 

009E/“ 

2815 


JRZ ..INDL 

?IS DELIM 

00 AO 

3004 


URNC ..ALPH 

;IS NAME 

00A2 •“ 

D630 


SUI 30H 

■ NUMMIE 

00A4 x 

1802 


JMPR «.ADD 

;ADD IT IN 

00 A 6 

D637 

„.ALPH 5 

SUI 37H 

? SHOULD BE A--F 

00 A8 

EB 

,»ADDs 

XCHG 


00A9 •" 

4F 


MOV C 7 A 


OOAA " 

0600 


MV I B 7 0 


00 AC •" 

29 


DAD H 


00 AD" 

29 


DAD H 


00AE-" 

29 


DAD H 


OOAF •- 

29 


DAD H 5 MUL 

BY 16 

OOBO ■" 

09 


DAD B SAND 

ADD IN E#NEW ONE 

00B1 

EB 


XCHG ? PUT 

IN D 

00 B 2 



INX H ? NEXT 

CHAR 

00B3 

18E5 


■JMPR . , SCAN 


00B5" 

Cl 

..INDL5 

POP B 


00B6 “ 

C9 


RET 




;HEXHL” 

“PRINTS BYTE HL~>AT. IN HEX 

00B7 •- 

7E 

HEXHL3 

MOV A 7 M 


00B8 - ' 

F5 

HEXBYT 5 

PUSH PSW 


00B9 

.. OF" 


RRC 


GOB A" 

OF 


RRC 


OOBB- 

OF 


RRC 
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TDL Z80 

CP/M DISK ASS 

EMBLER VERSION 2.21 

SUB 

ZGRASS SUBROUTINES 

PRINT ROUTINES 


ODBC" 

OF 

RRC 

OOBD '** 

CD 00C1' - 

CALL „ . FIN IB 

OOCO **’ 

FI 

POP FSW 

OOC1 * 

E60F 

..HNIB! ANI OFH 

00 C 3 ' 

FEOA 

CPI 10 

00G5-* 

3802 

JRC ..LT10 5<10 

OOC 7 

C607 

ADI -'A9-'“l ? ADD OFFSET 

0009 *’* 

C630 

. ,'LTlOs ADI 'O' - ; MAKE INTO ASCII 

OOCB *** 

CD 0000SOA 

CALL DUTCH 

OOCE*“ 

C9 

RET 



? #TEMPCHN””LINKS HL INTO TEMP LIST 

5 IN! HL-->BLOCK TO BE LINKED IN 

"OUT! SAME 

"NOTE: BLOCKS LINKED IN SHOULD NOT HAVE STUFF 

5 HANGING OFF, THAT IS, NAMEBLOX WITH 

? POINTER VALUES SHOULDN'T BE TEMPCHNED 

OOCF' 


TEMPCHN! 

OOCF •- 

E5 

PUSH H . 

OODO •" 

D5 

PUSH D 

00D1 

G5 

PUSH B 

00D2 •" 

ED5B COCA 

LDED TEMPHDR ?PICKUP CURRENT FIRST 

00D6 

22 COCA 

SHL.D TEMPHDR ? STUFF NEW GUY 

00D9-' 

01 0003 

LX I B,$NLINK 

OODC " 

09 

DAD B 

OODD" 

73 

MOV M,E 

CODE-' 

o o 

INI H 

OODF •" 

72 

MOV M,D 

OOEO-' 

Cl 

POP B 

00E1 

D1 

POP D 

00 E 2 

El 

POP H 

00E3 •" 

C9 

RET 



? -H-TEMPUNCH.PULLS HL GUT OF TEMP LIST v 

;IN: HL->BLGCK TO BE EXTRACTED 

;OUT: BLOCK EXTRACTED 

00 E 4 


TEMPUNCH: 

00E4 

C5 

PUSH B 

00E5 •" 

DDES 

PUSH X 

00 E 7 •" 

E5 

PUSH H 

ODE 8 

21 C0C7 

LXI H,TEMPHDR~$NLINK 5LISTHEAD 

OOEB 

E5 

..MORE: PUSH H ?SAVE POINTER IN X 

OOEC 

DDE 1 

POP X 

OOEE •’ 

CD 0227- 

CALL NXTLNK 'GET NEX GUY 

00F.1 •" 

2005 

■JRNZ ..THERE , GOT ONE 

OOFS'" 

El 

..RET: POP H 

OOF" 4 

DDE 1 

POP X 

00 F6 •" 

Cl 

POP B 

00F7" 

C9 

RET 

00F8' - 

Cl 

..THERE: POP B ?GET ORIG HL 

OOF y' 

CSV 

PUSH B ? ANS SAVE IT 



TDL Z80 

CP/M DISK ASSEMBLER VERSION 2.21 PAGE 

SUB 

■ ZGRASS SUBROUTINES 

PRINT ROUTINES 


OOF A "' 

E5 

PUSH H 

OOFB •- 

AF 

XRA A 

OOFS •** 

ED42 

DSBC B * HL=BC? 

OOFE •" 

El 

POP H 

OOFF •*’ 

20EA 

■JR'NZ . . MORE ? NO 

0101 •- 

CD 0227-' 

CALL NXTLNK 

0104-' 

DD7503 

MOV UNLINK(X),L 

0107 

DD7404 

MOV $NL INK+1 ( X ) •, H 5 YUP 

010 A 

18E7 

•JMPR . . RET 

? *ISTERM—-RETURNS IF NULL * ETC 

? ALLOWS NULL, NL, AND "' AS 

?VALID LINE TERMIES AND JUMPS OVER THEM 

5 ALSO CALLS PUTLPT FOR YOU 
”ER.TERM IS OTHER TERMIES SEEN 

01OC" 

7E 

ISTERM5 MOV A,M 

01OD •" 

B7 

ORA A 

010E-" 

|“;0 

RZ 

01 OF-" 


INX H 

0110 •" 

CD 0243" 

CALL PUTLPT 

0113"' 

FEOA 

CPI NL 

0115-' 

C8 

RZ 

011 6"' 

FE2C 

CPI •- 

0118" 

L* 8 

RZ 

0119" 

FE20 

CPI *** **' 

011B •" 

C8 

RZ 

011 c •" 

FE3B 

CPI 

OllE"' 

C8 

RZ 

01 IF"' 

2B 

DCX H 

0120" 

2B 

OCX H ? SEE IF NULL BEFORE IT 

0121"' 

7E 

MOV A,M ? IN CASE OF SKIP --999 

0.122"' 

B7 

ORA A 5 WILL BE -> BEFORE STRING 

0123"' 


INX H 5 POINT PAST NULL 

0124" 

7E 

MOV A,M 5 SO A DOESN 'T HAVE NULL 

0125-' 

CD 0243 •" 

CALL PUTLPT ?SAVE PTR 

0128-" 

C8 

RZ ? OR AT ERROR- 

0129 ■" 

CD 0000 -' 

CALL WARNFF 5 WARN THEM 

012C"' 

54-4F 4F204D55 

«ASCIZ /TOO MUCH ON LINE: / 

013F-" 

CD 0000s 05 

CALL ARGLIN SPRINT IT 

0142 -' 

C3 Q02C y 

JMP NLPNT 

5 *ISNL—-RETURNS Z IF CR OR 5 * 

5KISNL DOES KLB FIRST 

SIN HL-5-CHARACTER 

?OUT Z SET IF CHARACTER IS GR OR 5 OR NULL 

0145-' 

CD 015EK 

KISNL5 CALL KLB 5 DO KLB FIRST 

0148" 

7E 

ISNL; MOV A,M 

0149 •" 

B7 

ORA A 

014 A " 

C8 . 

RZ 

014B •" 

FE3B 

CPI -"5" 

014D" 

C8 

RZ 
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SUB - ZGRASS SUBROUTINES 
PRINT ROUTINES 


014E" FEOA 

0150-' C9 


CPI NL 
RET 


5 HSCANNL—SCANS LINE TILL NEXT NL* 


S IN 
5 OUT 

0151 •' 7E SCANNLs 

0152-' A7 

0153". C8 

0154" 23 

0155" FEOA 

0157" C8 

0158" 18F7 

5 *KLB 

5 IN 
5 OUT 
5KLBINC 


015A" 

23 

KLBINC! 

015B" 

7E 

KLB: 

015C" 

FE20 


015E" 

CO 


015F" 

18F9 



HL->CHARACTER 
HL-OPAST NL 

MOV A,M 
ANA A ? IS NULL? 

RZ 

I NX H 

CPI NL .SIS NL 

RZ 

JMPR SCANNL 5 LOOK MORE 

-KILLS OFF BLANX* 

HL~>CHARACTER, MAYBE BLANK 
HL->FIRST NON-BLANK CHARACTER 
INCREMENTS HL FIRST 

INX H 
MOV AvM 
CPI BLANK 
RNZ 

JMPR KLBINC 


0161" E5 
0162" D5 
0163" 54 

0164" 5D 
0165" 13 

0166" 3600 

0168" EDBO 
016A" D1 

016B" El 
016C" C9 


? *CLEAR1 T—CLEARS FROM HL FOR BC BYTES* 
CLEARIT5 PUSH H 
PUSH D 
MOV D,H 
MOV E-J¬ 
INX D 
MVI M j 0 
LDIR 
POP D 
POP H 
RET 


5 *SCANLAB—SKIPS OVER LABELS* 

016D" CD 025F" SCANLABs CALL CARTYP ?SETCC"S 

0170" C8 RZ * RET IF DELIM 

0171" ,23 INX H 

0172" 18F9 JMPR SCANLAB 

? *ACOPY—COPIES HL TO DE UNTIL DELIM IN A SEEN* 

ACOF'Y: CMP M 

JRZ ..OUT ? COPY DELIM TOO 

LDI 

JMPR ACOPY 


0174" BE 
0175" 2804 

0177" EDAO 
0179" 18F9 


PAGE 7 
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SUB 

-- ZGRASS 

SUBROUTINES 


PRINT 

ROUTINES 




017B" 

EDAO 

..OUT: LDI 


017D " 

C9 

RET 

5 *SCANB—SCANS PAST NEXT BLANK OR TO NL* 

? SCANS 

* IN—HL->CHARACTERS WITH POSSIBLE LEADING BLANX 

5 OUT—HL~>AT BLANK FOLLOWING NONBLANK CHARS 
? <I.E.i IT SKIPS OVER A BUNCH OF NON-BLANKS) 

?Z IS SET IF POINTING AT A NL, 5 OR NULL 
?Z CLEAR IF --> AT A BLANK UPON EXIT 

017E*' 

CD 0145-' 

SCANS: CALL KISNL 


0181 ■" 

C8 

RZ 


0182-' 

23 

INX H 


01837 

7E 

MOV A,M 


0184 •" 

FE20 

CPI BLANK 


0186-' 

20 F 6 

JRNZ SCANS 


0188' 

B7 

ORA A 


0189 •' 

C9 

RET 

? *SWITCH—-POPS ONE LEVEL IN A MACRO*. 

SIN* NUTTIN (USES MACTOP) 

5 OUT: HL->CODE 

5 A HAS RETURNED TYPE, DE HAS VALUE 

5 FROM $RVSTUFF 

? OLD MIB IS ZAPPED AND CALLER RESTORED 

018 A *' 

C5 

SWITCH: PUSH B 

:SAVE B 

018B " 

FDE5 

PUSH Y 

? SAVE Y TOO 

018D -' 

2A C25E 

LHLD MACTOP 

5 GET MIB 

0190 •' 

7C 

MOV A,H 

SIS ZERO? 

0191 •" 

B5 

ORA L 

ZERROR ER.RET 

?IF SO, IS FROM *-LEVEL 
” AND IS BOOBOOt: 

0192"' 

2004 

+ JRNZ ..0001 


0194 -' 

CD 00005 07 

+ CALL ERRPGM 


0197 " 
0198' 

24 

+ .BYTE ER.RET 

+..0001s 3 


0198 •" 

FD2A C25E 

LIYD MACTOP 


0190 •' 

FD7E1A 

MOV A,$GOSUB(Y) 

?CHECK GOSUB COUNT 

019R-" 

B7 

ORA A 

?IF #0, IS GOSUB RET 

01 AO' 

202F 

JRNZ ..DEC 

5 DO IT 

01A2 •' 

01 0013 

L. XI B,$RVSTUFF 

5 POINT IY TO GOODIES 

01A5-" 

FD0.9 

DADY B 


01A 7 "' 

CD 0000 5 09 

CALL GETOPND 

? GET STUFF IN A?<DE 

01A A 

F5 

PUSH PSW 


01AB-" 

D5 

PUSH D 

’SAVE A,DE FOR EXIT 

01 AC-' 

7E 

MOV A,M 

,* IS *KEYBU<? 

01 AD*" 

FE22 

CPI $MIBBLK 

?INSTEAD OF fMIBBLK 

01AF" 

2003 

JRNZ ..DODD 

?IF SO, DON'T DELETE MIB 

01B1 " 

CD 0000*06 

CALL DELHIB 


01B4*" 

01 OOOD 

..DODD: LXI B,fCALLER 

5 POINT TO CALLER 

01B7-' 

CD 022A *" 

CALL NXTABC 

1 It B » 

01 BA " 

22 C25E 

SHLD MACTOP 

5 STORE IT 

01BD *" 

01 0005 

..DONT: LXI B,$LINPTR 

SPOINT TO CALLER RETURN 
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SUB - ZGRASS SUBROUTINES 
PRINT ROUTINES 


01 CO'' 

CD 022A" 


CALL NXTABC 

; LINE 

0103 •' 

Dl 

. . GDON 5 

POP D 

5 GET RETURNED VALUES 

0104-' 

FI 


POP p.sw 

? BACK—-WAS A=0? 

01C5 ■*’ 

B7 


ORA A 


01C 6 •" 

2005 


JRNZ ..BYE 

?SOMETHING WAS PASSED! 

O-l’CS/ 

3E04 

. . GOSX2 

MVI A j $IVAL 

;DEFAULT^SUCCEED 

01CA •- 

11 0001 


LX I D, 1 


01 CD 

FDE1 

..BYE2 

POP V 


01CF" 

Cl 


POP B 


01 DO" 

C9 


RET 

;G0 BACK 

01 Dl". 

FD351A 

..DEC2 

OCR $GOSUB(Y) 

5 DECREMENT COUNT 

01D4 " 

EB 


XCHG 

5 DE HAD RETURN POINTER 

01D5-' 

18F1 


JMPR ..GOSX 

5 ALL DONE 



; -h-STREQK—CHECKS IF TWO STRINGS EQUAL TO DELIM* 



? IN 

HL”>FIRST CHAR 

OF 8TR.1. 



it 

DE->FIRST CHAR 

OF STR2 



n 

5 OUT 

DE,HL SAME 




7 

Z SET IF STRINC 

3S = TO DELIM 



“ 

Z CLEAR IF STRINGS NOT = 

01D7" 

D5 

STREQIC 

PUSH D 

5 SAVE DE 

01DS " 

E5 


PUSH H 

?AND HL 

01D9 •' 

1A 

..STROs 

LDAX D 

? GET CHAR DE POINTS AT 

01 DA •" 

BE 


CMP M 

?IS SAME AS HL POINTEE? 

OIDB" 

2009 


JRNZ ..STR1 

5 IF ME, CHECK CARTYPS 

01DD" 

CD 025F-' 


CALL CARTYP 

?CHECK TYPE 

01EO •' 

2809 


JRZ „ .STRQ 

5 IF DELIM 

01E2" 

23 


INX H 


01E3 •' 

13 


INX D 


01E4 " 

18F3 


JMPR „. STRO 

? TRY AGAIN 

01E6"' 

CD 025F" 

. . STR12 

CALL CARTYP 

;DELIM? 

01E9-" 

2004 


JRNZ „ .STR2 

B 

V 4i n «< 

01 EEf 

EB 

. „ STRQ 2 

XCHG 

? TRY OTHER ONE FOR DELIM 

01 EC" 

CD 025F 


CALL CARTYP 

? SETS CC- S OK 

01EF 

El 

. . STR2S 

POP H 


01FO 

Dl 


POP D 


Ol.Fl." 

C9 


RET 

;SIN CARA) 


01F2'- 

C5 

? *FINDLAB.SEARCHES FOR A LABEL. ON A LINE* 

• IN HL“>LABEL SOMEWHERE 

?OUT HL~>LINE BEGINNING WITH LABEL 

; OR ER.LAB GENERATED 

FINDLAB2 PUSH B 

01F3" 

D5 

PUSH D 

01F4-' 

FDE5 

PUSH Y 

OIF 6 " 

FD2A C25E 

LIYD MACTOP 

01 FA" 

EB 

XCHG 

01FB" 

FD6604 

MOV H i $STRPTR+1(Y > 

01FE " 

FD6E03 

MOV L,$STRPTR(Y> 
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SUB - ZGRASS SUBROUTINES 
PRINT ROUTINES 


0201 *“ 

01 000A 


LX I B,*SASCII 

?POINT AT STRING 

0204 "■ 

09 


DAD B 


02.05*" 

060A 


MV I B , NL 

? LOAD B WITH NL 

0207 •" 

CD 01D7" 

..FINOS 

CALL STREQK 


020A x 

280E 


•JRZ ..FINX 

?OKY—GOT IT 

020C 

7E 

..SCANS 

MOV A,M 

?IS NULL? 

020D "■ 

23 


INX H 

SADVANCE HL 

020E" 

B'7 


ORA A 

2ERROR ER.LABC 


020F •" 

2004 

4* 

JRNZ ..0002 


0211" 

CD 0000s07 

4 * 

CALL ERRPGM 


0214" 

25 

4- 

.BYTE ER.LAB 


0215" 


4 U „0002s 

1 


0215" 

B8 


CMP B 

SIS A NL? 

0216" 

20F4 


JRNZ ..SCAN 

5 NOPE, LOOK MORE 

0218" 

18ED 


JMPR ..FINO 

5 CHECK FOR LABEL 

021 A" 

CD 016D" 

. . FI NX. s 

CALL 8CANLAB 

?POINT PAST LABEL 

02 ID" 

FDE.1. 


POP Y 


021F " 

D1 


POP D 


0220" 

Cl 


POP B 


0221 " 

C9 


RET 





? *NXTPTR, NXTLNK, NXTABC—DOES MOV HL, (Hi...) * 



til 

? 

NOTE: BC IS CLOBBERED! 



n 

NXTPTR DOES MOV 

HL, (HL.) 



« 

7 

NXTL.NK DOES MOV 

HL,UNLINK(HL) 



H 

7 

nxTval DOES MOV 

HL,$MVALUE(HL) 



n 

7 

NXTABC DOES MOV 

HL,BC(HL) 



; IN 

HL~>SOMETHING 




5 OUT 

HL CONTAINS THAT STUFF 



« 

AND Z IS SET IF 

HL=0 

0222 < 

01 0005 

NXTVAL.3 

LX I B,$NVALUE 


0225/ 

1803 


JMPR NXTABC 


0227 " 

01 0003 

NXTLNKs 

LX I B, $NL. IMK 

“NAME LINK 

022A" 

09 

NXTABC.S 

DAD B ?ADD IN 

BC TO HL 

022B" 

D5 

NXTPTRs 

PUSH D 


022C " 

5E 


MOV E,M 

* GET IT 

022D " 



INX H 

5 SLOW STUFF 

022E " 

56 


MOV D,M 

? GET SECOND HALF 

022F " 

7 A 


MOV A,D 

?CHECK FER ZERO 

0230 " 

B3 


ORA E 

y : 

0231 " 

EB 


XCHG 

■i SETS CC "S 

0232" 

D1 


POP D 

;EXIT 

0233" 

C9 


RET 




“ #GETLPT—GETS. LINPTR 

INTO HL FROM MACTOP* 

0234" 

FDE5 

GETL.PT s 

PUSH Y 


0236" 

FD2A C25E 


L.IYD MACTOP 

? GET MACTOP ADDR 

02 3 A " 

FD6E05 


MOV L,$LINPTR < Y ) 










PAGE 11 


TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
SUB ~ ZGRASS SUBROUTINES 
PRINT ROUTINES 


023D" FD6606 

0240" FDE1 

0242 C9 


MOV H,$LINPTR+1< V) 

GETLPXs POP Y 
RET 

? * PUT LPT—PUTS Ll'NPTR FROM HL INTO MACTOP# 


0243'' FDE5 
0245" FD2A C25E 
0249-' FD7505 

024C FD7406 

024F" 18EF 


PUTLPT s PUSH Y 

LIYD MACTOP 
MOV $LINPTR(Y)»L 
MOV $LINPTR+1(Y)»H 
JMPR GETLPX 


5 *INC5IY—ADDS 5 TO IY* 

INC5IYS PUSH B 
LX I B,5 

IYOUTS DADY B 
POP B 
RET 

? *DEC5'IY—SUBS 5 FROM IY* 

DECS!Y 5 PUSH B 

LX I B, -5 
•JMPR IYOUT 

? *CARTYP—SETS CC-'S ACCORDING TO WHAT HL POINTS AT* 




; IN 

HL->CHARACTER 




5 OUT 

HL->CHARACTER 




II 

** 

Z CLEAR, C CLEAR IF ALPHA 



n 

Z CLEAR, C SET 

IF NUMERIC 



y 

Z SET C CLEAR IF DELIM 



?CARTYA 

s USES A 

INSTEAD OF M 

025F " 

7E 

CARTYPs 

MOV A,M 

?GET CHARACTER 

0260'' 

FE24 

CARTYAs 

CPI 

5$ IS ALPHA 

0262" 

• 7 .* 0 **.v> 


•JR Z . . CA 

7 FOR US 

0264 **’ 

FE30 


CPI "'0'' 


0266" 

FA 0282" 


•JM . . CD 

5 IS DELIM 

0269" 

FE3A 


CPI "9"+1 


026B " 

FA 0284" 

1 

•JM . . CM 

5 IS NUMERIC 

026E " 

FE41 

CPI "A" 


0270" 

FA 0282" 


•JM . . CD 

?IS DELIM 

0273" 

FE5B 


CPI "Z" + i' 


0275 " 

FA 0286" 


JM ».CA 

?IS ALPHA 

0278" 

FE61 


CPI 14IQ 

5 LITTLE A 

027A" 

FA 0282" 


•JM . . CD 

;IS DELIM 

027D" 

FE7C 


CPI 141Q+27 

“LITLE Z +1 

027F " 

FA 0286" 


JM . b L-A 

5 IS ALPHA 

0282 " 

AF 

. . CDs 

XRA A 

5SET Z,CLEAR CARRY 

0283" 

C9 


RET 


0284 " 

37 

» . CN s 

STC 

■ SET CARRY, Z IS CL! 


0259-' C5 
025A" 01 FFFB 

©250" 18F6 


0251" 
0252 
0255" 
0257" 
0258 " 


C5 

01 0005 
FD.09 
Cl 
C9 
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SUB - ZGRASS SUBROUTINES 
PRINT ROUTINES 


0285 C9 
0286"' A7 


RET 

. .CA5 ANA A 


0287-' C9 


RET 



SUBEND5 


;CLEAR CARRY, 

?LEAVE l CLEAR 


END 
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SUB - ZGRASS SUBROUTINES 
+-J-4- SYMBOL TABLE +4*4*4*4* 


AASN 

005F 


ABS 

008C" 


ACOPY 

0174" 

I 

ADDON 

0001 


ALLOC 

OOOO s 04 

X 

ARGLIN 

Oooo:05 

X 

ARG8TK 

cocc 


BACKGR 

C5CC 


BLANK 

0020 


BOTRAM 

cooo 


BOTTOM 

C4A9 


CARTYA 

0260" 

i 

CARTYP 

025F **' 

I 

CHARSL 

C5DD 


CLEARI 

0161"' 

I 

CLEARS 

COCA 


CNTRL 

OOOC 


CNTRLC 

C5CD 


CNTRLO 

C5D9 


CNTRLU 

0015 


GNTRLZ 

C5E4 


CPLARE 

cue 


CPLSIZ 

0140 


CR 

GOOD 


CSBLOK 

C68D 


CSFLAG 

C260 


CURCX 

C814 


CURCY 

C816 


CURREN 

C4A5 


c.co 

0011 


C.C1 

0012 


C.CX 

00 OB 


Cm CY 

GOOD 


C.DP 

0013 


C. ST 

0002 


C.X 

0003 


C. XF 

OOOF 


C. XS 

0007 


C. Y 

0005 


C. YF 

0010 


C. YS 

0009 


DDTON 

C5CE 


DECS IY 

0259" 

I 

DELMIB 

0000s 06 

X 

DEVCLO 

C579 


DEVCL1 

C57B 


DEVCL2 

C57D 


DEVCL3 

C57F 


DEVCL4 

C581 


DEVCL5 

C583 


DEVCL.6 

C585 


DEVCL7 

C587 


DEVFB 

C5CB 


DEVHCB 

C58F 


DEVMO 

C58B 


DEVNM 

C5B7 


DEVNT 

C58D 


DEVTNA 

C5BB 


DEVTNB 

C5BF 


DEVTNC 

C5C3 


DEVVA 

C5BD 


DEWAR 

C579 


DEVVB 

C5C1 


DEVVBL 

C591 


DEVVC 

C5C5 


DEVVD 

C5C9 


DEVVN 

C5.B9 


DEWS 

C5C7 


DEVXCD 

C5B3 


DEVYCD 

C5B5 


DOLPL..H 

C2E8 


DOLPPT 

C2EA 


DU.MBST 

0577 


EDBCNT 

C4AD 


EDCCNT 

C4A7 


EDLONG 

C812 


EDMODE 

C81C 


EDNAME 

C4A1 


EDNCX 

C80C 


EDNCY 

C80E 


EDNEWS 

C4A5 


EDOCX 

C808 


EDOCY 

C80A 


EDPN 

C806 


EDPO 

0804 


EDPTRC 

C4AB 


EDPTRL 

C4A9 


EDSTR 

C81A 


ERABIT 

0002 


ERRPGM 

OOOO 5 07 

X 

ER.ARA 

002F 


ER.ARC 

0034 


ER.ASN 

0015 


ER.BOX 

001A 


ER.CHN 

0002 


ER.CMD 

00 IF 


ER.CIMV 

0016 


ER.COR 

001B 


ER.CTL 

0036 


ER.DEL 

0026 


ER.DIM 

0030 


ER.DIV 

0018 


ER. DP 

0037 


ER.DSK 

0019 


ER.EDI 

0035 


ER.FMT 

0038 


ER.FNF 

001C 


ER.FOR 

0028 


ER.IMP 

0003 


ER.LAB 

0025 


ER.MAC 

0022 


ER.NAE 

002D 


ER„NAM 

0029 


ER.NEG 

003A 


ER.NOT 

0023 


ER.NUL 

0039 


ER.NUM 

002B 


ER.MXT 

00 ID 


ER.PFL 

0017 


ER.OPN 

0014 


ER.OVE 

001E 


ER.PAR 

002A 


ER.REN 

002C 


ER.RET 

0024 


ER.SEP 

0021 


ER.SNP 

0031 


ER.SPG 

002E 


ER. STK 

0004 


ER.SW 

0032 


ER„TER 

0020 


ER.UFL 

0033 


ER.UNF 

0027 


EXTDEL 

002E 


E.HVAL 

0002 


E.LVAL 

0001 


E.SIZ 

0005 


E. TYP 

0000 


E. VAL 

0001 


FCNTH 

C5D2 


FCNTI 

C5D3 


FCNTJ 

C5D4 


FCNTK 

C5D5 


FCNTL 

C5D6 


FCNTV 

C5E0 


FGNTY 

C5E3 


FINDLA 

0.1.F 2" 

I 

FIRST 

C4A3 


FLAGS 

C5CB 


FOREGR 

C5D0 


FRAGSI 

0400 


FREE 

oooo;08 

X 

FREELS 

C5E5 


FSTDOL 

C48C 


FSTINT 

C2EC 


FWDPTR 

C5E7 


GETLPT 

0234"' 

I 

GETLPX 

0240 ' 


GETOPN 

OOOO!09 

X 

HCAREA 

C593 


HEXBYT 

00B8-" 

I 

HEXHL 

0.0.B7 •" 

I 

ING5IY 

0251 •" 

I 

INCRO 

C5E9 


INHEX 

0096" 

I 

ISNL 

0148" 

I 

ISTERM 

010C" 

I 

IYOIJT 

0255" 


JUNK 

C540 


KBLOCK 

C5F.1. 


KEYFLG 

C7FF 


KEYPTK 

C533 


KEYTRK 

C7F7 


KI SNL 

0145" 

I 

KLB 

015B" 

I 

KLBINC 

015A-" 


L..F 

OOOA 


LISTON 

C5E2 


MACSTU 

C536 


MAC-TOP 

C25E 


MAXFRG 

0040 


MNMX 

C5EB 


NBLKB 

OOOO 


NBLKM 

0001 


NEWBOT 

C810 


NL 

000A 


NL..PNT 

002C •" 

I 

NSADDR 

C802 


NUMBUF 

C4A3 


NXIABC 

022A •" 

I 

NXTLNK 

0227" 

I 

NXTPTR 

022B-" 

I 

NXTVAL 

0222" 

I 

OLDCHR 

C4A0 


OLDCUR 

C49F 


DLDKEY 

C49D 


OL.DXY 

pr^pp; 


ONEBUF 

0729 


OPEL 

0014 


OPRSP 

C55B 


OPRSTK 

C547 


OPRSZ 

C5SD 


OUTCH 

OOOO“0A 

X 

OUTOFF 

C2E7 


PCNT 

C55E 


PDECA 

0036"' 

I 

PDECB1 

003D 


PDECBC 

003C " 

I 

PI XVAL 

C5ED 


POINTE 

C4A 7 


PONOFF 

C5DA 


PRINTA 

00 IB"' 

1 

PRINTF 

GOOD" 

I 

PRINTH 

001A" 

I : 

PIJTLPT 

0243" 

I 

RAMEND 

DFFF 


RAMSTR 

C900 


RANSHT 

C55F 


RMDTMP. 

C538 


RUBACfc 

0005 


RUBOUT 

007F 
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SAVESP 

C25C 


SCANS 

017E-" 

I 

SCANLA 

016D 

I 

SCANNL 

0151 

SCMEED 

0004 


SCRWIN 

C7.CD 


SOF'RSP 

C53D 


SOPRSZ 

C53F 

STACK 

C0C8 


STAKTO 

cooo 


STREQK 

01D7 - 

I 

STRSIZ 

G800 

SUBEND 

0288 


SUBSTU 

C534 


SWITCH 

018 A ■" 

I 

TAB 

0009 

TABPN1 

0032 x 


TABF'NT 

0030 

I 

TAPBUF 

C4B3 


TAPCON 

C4AF 

TAPPRO 

C4B1 


TBFEND 

C533 


TEMPCH 

OOCF *- 

I 

TEMPHD 

COCA 

TEMPS 

C2E5 


TEMPUN 

00E4 *- 

I 

TMPARG 

C7AD 


TOP 

C818 

TTYBEG 

C261 


TTYEND 

C2E1 


TTYINT 

C2E3 


TTYPTR 

C2E1 

TXTWIN 

C7E2 


UARTFL 

C49C 


IJ8REND 

C5F1 


V3PTR 

C573 

VDCHAR 

C49E 


VDNLF 

C5CF 


VIPL.H 

C545 


VOICEO 

C563 

WARNFF 

0000*- 

I 

URMODE 

C5EE 


ZGIM2 

0001 


ZGREND 

C81D 

♦AADR 

0010 


♦ADDRF 

0007 


♦ADDRI 

0005 


♦ADDRS 

0009 

♦ANY 

001A 


♦ANYNA 

FFFC 


♦ANYVA 

FFFE 


♦ARGPT 

0011 

♦BGPTR 

OOOF 


♦BNDL 

0007 


♦CALLE 

OOOD 


♦CMDAD 

0018 

♦CF'LBL 

002A 


♦CSBLO 

0028 


♦DATAP 

0007 


♦DOLDE 

0001 

$DOLOO 

0002 


♦DVAL 

0000 


♦END 

001C 


♦FADR 

OOOE 

$FLAGS 

0002 


♦FORBL 

0024 


♦FORPT 

OOOB 


♦FOAL 

0006 

♦GOBI JB 

001A 


♦ .1 ADR 

oooc 


♦INPBU 

0018 


♦ INPF'T 

0016 

♦ IVAL 

0004 


♦KEYBL 

0026 


♦LENGT 

0001 


♦LIMPT 

0005 

♦LOCF'T 

0009 


♦MIBBL 

0022 


♦MIBEM 

00 IB 


♦NAMAD 

OOOA 

♦NAME 

OOOA 


♦NASCI 

0009 


♦NDEL 

0080 


♦NL..INK 

0003 

♦NULL 

0002 


♦NVALU 

0005 


♦REPEA 

00 IE 


♦RVSTU 

0013 

♦SAME 

0020 


♦SASCI 

OOOA 


♦SLEN 

0006 


♦STRAP 

0008 

♦STRPT 

0003 


♦taf 

0000 


♦TYPE 

0000 


♦USE 

0005 

.BLNK. 

0000 s 0; 

3 X 

.DATA. 

0000.fr 

X 

.PROG. 

0288 

X 
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.INSERT ASS.ASM 
©.REMARK / 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 


# 

# -H -if- 

#***■»** 

* 

•B 

B 

B 

B 

BBBBBBB 


© "WHEN YOU CARE ENOUGH TO PROGRAM 


© THE VERY BEST" 

© 

© ZGRASS V2.OOOOOOOO 

©BY JAY FENTON, NOLA DONATO, AND TOM DEFANTI 
© <C> 1978 

© 

©/ 


.INSERT AsZRAM.ASM 
.LINK 


. PREL 

.IDENT DOL 
.INTERN DELHIB 
.INTERN DOCHK 
.INTERN KILMIB 
.INTERN MAKMIB 
. INTERN STOP 


.EXTERN ABORT 
.EXTERN ALLOC 
.EXTERN ALLOCD 
.EXTERN ARG 
.EXTERN CZCHEK 
.EXTERN CLEARIT 
.EXTERN DISPLAY 
.EXTERN ERRPGM 
.EXTERN EVAL 
.EXTERN EVALARG 
.EXTERN FREE 
.EXTERN FREEALL 
.EXTERN GETLF’T 
.EXTERN GETOPND 
.EXTERN INC5IY 
.EXTERN INCUSE 
.EXTERN ISTERM 
.EXTERN KBCNLP 
.EXTERN KISNL 
.EXTERN LINER 
.EXTERN NXTABC 
.EXTERN NXTLNK 
.EXTERN NXTPTR 
.EXTERN NXTVAL 




TDL 

Z80 CP/M 

DISK ASSEMBLER VERSION 2.21 

PAGE 

2 ! 

DOL 

- DOL- 

—DOLOOP STUFF AND MIB STUFF 




. EXTERN 

PUTOPND 

.EXTERN 

PUTLPT 

.EXTERN 

SDEL 

.EXTERN 

SNAP 





5 DOLOOPED MACRO PROCESSING LOOP 




? CALLED WHILE 

WAITING FOR HUMAN INPUT 




5 THIS ROUTINE 

WILL EXECUTE ONE STATEMENT FROM 




? EACH DOLOOPED 

i MACRO ON THE DOLOOP LIST 




? AND THEN RETURN 

0000 **' 

2A C25E 


DOCHKs- LHLD 

MACTOP 

0003 *** 

E5 


PUSH 

H 

0004“ 

2A C2E8 


LHLD 

DOLPLH 5 START LIST AT TOP 

0007-' 

DD21 C 2 D 

1 9 

LX I 

X,D0LPLH-TB6PTR 

OOOB •' 

22 C2EA 


..NEXT s SHLD 

DOLPPT 5 STUFF INTO WORKING PTR 

OOOE 

7C 


MOV 

A,H 

OOOF *" 

B5 


ORA 

L. 5 IS PTR NULL? 

0010 - 

.2846 


•JRZ 

..DONE 5 KICKOUT IF DONE 




? SHOULD WE DELETE THIS MIB? 

0012 -' 



I NX 

H ? MOVE TO FLAG BYTE 

0013 •** 

23 


INX 

H 

0014 •- 

CB4E 


BIT 

*DOLDEL,M 

0016 •- 

2B 


OCX 

H 

0017- 

2B 


DCX 

H 

0018'- 

2813 


•JRZ 

..NDIE ? NO 




5 DELETE BIT IS 

SET - SO KILL THIS GUY OFF 

001 A" 

E5 


PUSH 

H 

00 IB- 

01 OOOF 


LX I 

B,*BGPTR ?POINT AT NEXT 

001 E •" 

CD 0000s 

18 

CALL NXTABC 

0021 

DD7410 


MOV 

♦BGPTR+KX) »H 5 SET PREVIOUS 

0024 •" 

DD750F 


MOV 

$BGPTR(X )7 L ? TO POINT AT US 

0027"■ 

El 


POP 

H 5 RELEASE MEMORY 

0028 •" 

CD 0132" 


CALL 

DELMIB 

002B 

1823 


JMPR 

..NEXM 5 NEXT MACRO 




; GOOD DOLOOPED 

MACRO 

002D •" 

L2ofc 


,.NDIEs SHLD 

MACTOP ? SET THIS GUY AS TOP 

0030 •" 

CD 0000s 

10 

CALL 

GETLPT ? GET STRING SCANNING PTR 

0033 •- 

CD 0000s 

17 

u n LL” CALL 

LINER ; EVAL A LINE 

0036 -' 

CD 0000 s 

08 

CALL CZCI-IEK ” DEBUG/CNTRLZ? 

0039 - 

DD2A C2EA 

L.IXD 

DOLPPT •" IX--CURRENT MIB 




5 DID THIS GUY 

RETURN? 

003D •- 

CD 0000 ” 

14 

CALL IS 

TERM ? PROPER TERMY? 

0040 •- 

B7 


ORA A 

?NULL? 

0041 - 

200D 


JRNZ .. 

NEXM 5 NOP-NEXT MACRO 




v YES HE DID -- 

RESET STRING PTR TO FIRST CHAR 

0043 -' 

DD6604 


MOV 

H,$STRPTR+1(X) 

0046-' 

DD6E03 


MOV 

L,$STRPTR(X) 

0049" 

01 000A 


LX I 

B i $SASCII 

004C" 

09 


DAD 

B 




5 STUFF POINTER 

BACK INTO MIB 

004D " 

CD 0000 s 

ID 

CALL PUTLPT 




5 MOVE TO NEXT 

MIB ON CHAIN AND TRY TO DOIT 
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0050 1 

DD 6610 

..NEXMs 

MOV 

H.*BGPTR+1(X) 

0053 ’’ 

DD6EOF 


MOV 

L,$BGPTR<X> 

0056 *“ 

18B3 


JMPR 

..NEXT 

0053 *” 

El 

. . DONE 5 

POP 

H 

0059**’ 

22 C25E 


SHLD 

MACTOP 

005C 

C9 


RET 



? COMMAND TO UNDOLOOP A MACRO 




; THIS 

GUY JUS 

;T SETS A DIE! FLAG 



5 WHICH 

THE DOLOOP DISPATCHING LOOP LOOKS 



5 AT TO 

DO THE ACTUAL DELETION' 



M.CMDTS 

TOP, . . UNLX, 0, SNAP, . . UNL.A, . UNLS3C 

005D •*’ 

18 

4-STOP s 

. BYTE 

$CMDADR 

005E 

05 

4* 

„ BYTE 

(„.UNLX-STOP)/16+1 

005F •*’ 

00 

4 

»BYTE 

0 

0060 -■ 

0000:IF 

4 

„ WORD 

SNAP 

0062-' 

006C"' 

4 

„ WORD 

..UNLS 

0064 •" 

0075“* 

+ 

. WORD 

JJNLA 

0066'" 

53544F5000 

4 

. ASCIZ 

/STOP/ 



+ 3 



006B -' 

00 


. BYTE 

0 $ NO SWITCHES 

006C' - 

CD 0000M6 

. JJNLS! 

CALL KISML SIS STOP ALONE? 

006F *** 

CA 0000 5 04 


JZ ABORT 

0072' 

CD 0000s07 


CALL 

ARG 

0075 -' 

08 IE 

„ JJNLAs 

„ BYTE 

^STRADR,fREPEAT 

0077 -* 

E5 


PUSH 

H 

0078 **’ 

FD7E00 

. . UNL..L. s 

MOV 

A,0(Y) ? MORE TO DO 

007B 

A 7 


ANA 

A 

007C 

2S2C 


JRZ . . 

BOUT ? DONE 

007E X 

FD5602 


MOV 

D,2 < Y) ? DE=STRING ADDR 

0081 -' 

FD5E01 


MOV 

E,1(Y) 

0084 •- 

2A C2E8 


LHLD 

DOLPL.H ? LIST TOP 

0087 -' 

7C 

„« ZAP: 

MOV 

A, H 

0088 -' 

B5 


ORA 

L 

0089 -' 

2810 


JRZ 

..NULL 5 NULL IF NOFIND 

008B-' 

O Q 


I NX 

H ? ELSE STEP 





5 TO STR ADDR 



? TO STRING ADDRESS 

008C 

.nicy 


I NX 

H 

008D-' 



I NX 

H 

008E -' 

7E 


MOV 

A,M ; COMPARE TO 

00 £8- -' 



INX 

H ? SEARCH TARGET 

0090-' 

BB 


CMP c 

E 

0091 -' 

200D 


JRNZ 

..NONO ? NO MATCH 

0093" 

7E 


MOV 

A, M 

0094 -' 

BA 


CMP 

D 

0095"' 

2009 


JRNZ 

. . NONO 



5 WE GOT A LIVE ONE 

0097" 

2B 


DCX 

H 5 BACK TO FLAGS 

0098 

2B 


DCX 

H 

0099" 

CBCE 


SET 

&DOLDEL,M 5 SAY DELETE HIM 

009B •" 

CD 0000s12 

n „ NULL s 

CALL INC5IY 
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009E*’’ 

18D8 


JMPR . . UNL.L 



R 

MOVE ON DOWN THE LIST... 

OO AO 

01 OOOB 


.MONO! LX I B i $BGPTR--4 5 NEXT PTR 

00A3" 

09 


DAD B 

00A4 

7E 


MOV A,M 

00 A 5 

23 


INX H 

00 A6" 

66 


MOV H» M 

00A7- 

6F 


MOV L,A 

00 AS •" 

18DD 


■JMPR . . ZAP 

00 A A 

El 

„ 

«DOUTs POP H 

00 AB" 

C9 


RET 

00 AC'" 


w 

. UNLX: 



U 

PROCEDURE TO BUILD AN MIB 



n 

7 

NEEDS: 



H 

7 

HL-ODEL.IM FOLLOWING MACRO NAME IN LINE 



tt 

? 

RETURNS! 



St 

V 

IX - MIB ADDRESS 



tt 

? 

HL->LINE TERMINATOR 



tt 

? 

MIB SETUP WITH ARGS PARSED AND STUCK AT 



IS 

$MIBEND 

OOAC " 

C5 

MAKMIBs PUSH B 

OOAD 

D5 


PUSH D 

OOAE" 

Efv 


PUSH H 

00 AF" 

D5 


PUSH D 5SAVE NAMEBLOCK FWA 

OOBO" 

3E0S 


MVI A,.5 5 GET 6 BL.OX 

00 B 2 

CD 0000s 05 


CALL ALLOC 5 GET MIB SPACE 

00B5 

E5 


PUSH H ? SAVE FWA 

00B6 

3622 


MVI M» $MIBBLK STAG IT 

00B8'" 

23 


INX H 5 SKIP TAG 

OOB9 V - 

23 


INX H SAND LENGTH 

OOBA •" 

01 00 IB 


LX I B,$MIBEND 5 CLEAR STUFF 

OOBD-" 

CD 0000s09 


CALL CLEARIT 

ooco •" 

DDE 1 


POP X 5 GET MIBFWA BACK 

00C2'" 

E1 


POP H 5 GET NAMEBLOCK FWA 

00C3 

CD 0000!IB 


CALL NXTVAL 5 POINT AT STRING 

00C6 

54 


MOV D i H 

00C7 

5D 


MOV EiL SINCREMENT USE COUNT 

00C8 

CD 0000s13 


CALL INCUSE 

OOCB'" 

DD7503 


MOV $STRPTR(X >,L 5 POINT STRPTR 

OOCE'" 

DD7404 


MOV $STRPTR+HX),H 

OOD1 

01 000A 


LX I B i $SASC11 5 POINT ASCII 

00D4 

09 


DAD B 

00D5 

DD7505 


MOV $LINPTR(X),L 

00D8 

DD7406 


MOV $I_INPTR+1 ( X ) ,H 

OODB-" 

El 


POP H 5 GET CALLING LINE PTR 

00 DC 

FDE5 


PUSH Y 5 SAVE IY STACK 

OODE •" 

DDES 


PUSH X 5MIBFWA 

OOEO •" 

FDE1 


POP Y UN Y 

00E2" 

01 00IB 


LX I B,$MIBEND 

0QE5 ■" 

FD09 


. DADY B SWHERE TO STICK IT 

00E7" 

FDE5 


PUSH Y SPLIT ARGPTR IN 

00E9 " 

Cl 


■ PGP B 5 MOV $(X),Y 

OOEA 

DD7111 


MOV $ARGPTR(X),C SMOV $+1(X),I 

OOED " 

DD7012 


MOV 4ARGPTR+1(X)« B 
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OOFO'" 

FD360000 

.MORE! 

MVI 0(Y), $TAF 

5 TERMINATE LIST SO FAR 

OOF4 •" 

CD 0000s15 


, CALL KBCNLP 

3ARCS?? 

00F7 “ 

2816 


JRZ ..DONE 

5NONE (LEFT) 

00F9 "' 

FDF*-! 


XTIY 

5 SETUP FOR EVAL 

OOFB •" 

CD 0000!OD 


CALL EVALARG 


OOFEI 

CD 0000!11 


CALL GETOPND 

5 GET IT 

0.10 3.-' 

FDE3 


XTIY 

3MIBEND STACK BACK 

0103 •" 

CD 0000 s 1 C 


CALL PUTOPND 

?STICK IT THERE 

0.106*’ 

CD 0000s12 


CALL INC5IY 

;POINT TO NEXT 

0109- 

FD360000 


MVI 0(Y),$TAF 

3 TERMINATE LIST 

010D" 

18E1 


JMPR ..MORE 

5 LOOK FER MORE 

01 OF "' 

FDE5 

..DONE! 

PUSH Y 

"SETUP FOR ALLOCD 

0111"' 

D1 


POP D 


0112"' 

13 


INX D 

5 POINT 1 PAST 

0113- 

E5 


PUSH H 

3 SAVE CURRENT LINE PTR 

0114" 

DDES 


PUSH X 

5 GET MIBFWA 

0116" 

El 


POP H 

5INTO HL 

0117-' 

CD 0000 s 06 


CALL ALLOCD 

5 RELEASE EXTRA 

011A-" 

El 


POP H 

5 RESTORE H 

01 IB"' 

FDE1 


POP Y 


011D " 

D1 


POP D 


01 IE" 

Cl 


POP B 


01 IF-' 

C9 


RET 

5LEAVE WITH IX-->MACTOP 


5KILMIB—CHAINS MIB'S BACKWARDS, DELETING ALL 


5 HL IS USUALLY CONSIDERED CLOBBERED 
5 AND SO IS BC 


0120 " 

7C 

KILMIB5 MOV A,H 

?HL~>FIRST MIB 

TO GO 

0121 •" 

B5 

ORA L.. 



0122 -' 

C8 

RZ 



0123-' 

7E 

MOV A,M 

?CHECK IF TMIBBLK 

0124-" 

FE22 

CPI $MIBBLK 

5 IF NOT, MAYBE 

ALREADY 

0126-' 

CO 

RNZ 

? GONE! 


0127-' 

CD 0132-' 

CALL DELMIB 

3 DELETE IT AND 

HANGIES 

012 A •- 

01 GOOD 

LX I B,^CALLER 



012D-" 

CD 0000*18 

CALL NXTABC 

5 CHAIN TO PREV 

CALLER 

0130 

18EE 

JMPR KILMIB 

5 TRY TRY AGAIN 






5DELMIB—DELETES MIB AND 

i ALL STUFF HANGING OFF 

0132-' 

C5 


DELMIB5 PUSH B 


0133**’ 

E5 


PUSH H 


0134**’ 

01 

OOOB 

LX I B ,$FORPTR 

5 DELETE 

0137 •- 

CD 

0000s18 

CALL NXTABC 


013 A"' 

CD 

00005 OF 

CALL FREEALL 

5 ALL FORBLOX 

013D •" 

El 


POP H 


013E-' 

E5 


PUSH H 


013F "' 

01 

0003 

LXI B,$STRPTR 

3 DECUSE COUNT 

0142-' 

CD 

0000518 

CALL NXTABC 

3 POINT AT STRING 

0145" 

CD 

0000 sIE 

CALL. SDEL 

5DEC IT 

0148"' 

El 


POP H 

3 RESTORE H 

0149' 

Cl 


POP B 
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0.1.4A " C3 0000 s OE 


JMP FREE 


5THEN THE MIB ITSELF 


PAGE 


END 
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AASN 

005F 


ABORT 

0000!04 

X 

ADDON 

0001 


ALLOC 

0000:05 

X 

ALLOCD 

OOOOs 06 

X 

ARG 

0000!07 

X 

ARGSTK 

coco 


BACKGR 

C5CC 


BLANK 

0020 


BOTRAM 

cooo 


BOTTOM 

C4A9 


CHARSL 

C5DD 


CLEAR! 

OOOOs09 

X 

CLEARS 

COCA 


CNTRL 

oooc 


CNTRLC 

C5CD 


CNTRLO 

C5D9 


CNTRLU 

0015 


CNTRLZ 

C5E4 


CPLARE 

Cl 1C 


CPLSIZ 

0140 


CR 

OOOD 


CSBLOK 

C68D 


CSFLAG 

C260 


CURCX 

C814 


CURCY 

C816 


CURREN 

C4A5 


CZCHEK 

OOOO:08 

X 

C. CO 

0011 


C.Cl 

0012 


C.CX 

OOOB 


C.CY 

OOOD 


C. DP 

0013 


C. ST 

0002 


C, X 

0003 


C. XF 

OOOF 


C. XS 

0007 


C.Y 

0005 


C. YF 

0010 


C - Y3 

0009 


DDTON 

C5CE 


DELMIB 

0132 •" 

I 

DEVCLO 

C579 


DEVCLl 

C57B 


DEVCL2 

C57D 


DEVCL3 

C57F 


DEVCL.4 

CSS 1 


DEVCL5 

C583 


DEVCL6 

CSS 5 


DEVCL7 

C587 


DEVFB 

C5CB 


DEVHCB 

C58F 


DEVMO 

C58B 


DEVNM 

C5B7 


DEVNT 

C58D 


DEVTNA 

C5BB 


DEVTNB 

C5BF 


DEVTNC 

C5C3 


DEWA 

C5BD 


DEWAR 

C579 


DEWB 

C5C1 


DEVVBL 

CS91 


DEWC 

C5C5 


DEWD 

C5C9 


DEVON 

C5B9 


DEWS 

C5C7 


DEVXCD 

C5B3 


DEVYCD 

C5B5 


DISPLA 

0000 !OA 

X 

DOCHK 

0000 

I 

DOLPLH 

C2E8 


DOLPPT 

C2EA 


DUMB8T 

C577 


EDBCNT 

C4AD 


EDGCNT 

C4A7 


EDL.ONG 

C812 


EDMODE 

C81C 


EDNAME 

C4A1 


EDNCX 

C80C 


EDNCY 

C80E 


EDNEWS 

C4A5 


EDOCX 

C808 


EDOCY 

csoA 


EDF’N 

C806 


EDPO 

C804 


EDPTRC 

C4AB 


EDPTRL 

C4A9 


EDSTR 

csiA 


ERABIT 

0002 


ERRPGM 

0000"OB 

X 

ER.ARA 

002F 


ERARG 

0034 


ER..ASN 

00.1.5 


ER.BOX 

001 A 


ER.CHN 

0002 


ER.CMD 

001 F 


ER.CNV 

0016 


ER»COR 

00 IB 


ER.CTL 

0036 


ER.DEL 

0026 


ER.DIM 

0030 


ER.DIV 

0018 


ER. DP 

0037 


ER.DSK 

0019 


EE.EOT 

0035 


ER.FMT 

0038 


ER.FNF 

001C 


ER.FOR 

0028 


ER.IMP 

0003 


ER.LAB 

0025 


ER.MAC 

0022 


ER.NAE 

002D 


ER.NAM 

0029 


ER.NEG 

003A 


ER.NOT 

0023 


ER.NUL 

003'? 


ER.NUM 

002B 


ER.NXT 

00 ID 


ER.OFL 

0017 


ER.OPN 

0014 


ER.OVE 

001 E 


ER.PAR 

002A 


ER.REN 

002C 


ER.RET 

0024 


ER.SEP 

0021 


ER.SNP 

0031 


ER.SPC 

002E 


ER.STK 

0004 


ER.SW 

0032 


ER.TER 

0020 


ER.UFL 

0033 


ER.UNF 

0027 


EVAL. 

0000!OC 

X 

EVALAR 

0000 5 OD 

X 

EXTDEL 

002E 


E.HVAL 

0002 


E.LVAL 

0001 


E.SIZ 

0005 


E.TYP 

0000 


E. VAL 

0001 


FCNTH 

C5D2 


FONT I 

C5D3 


FCNTJ 

C5D4 


FCNTK 

CSD5 


FCNTL 

C5D6 


FCNTV 

C5E0 


FCNTY 

C5E3 


FIRST 

C4A3 


FLAGS 

C5CB 


FOREGR 

C5D0 


FRAGSI 

0400 


FREE 

OOOO:OE 

X 

FREEAL 

0000!OF 

X 

FREELS 

C5E5 


FSTDOL 

C48C 


FSTINT 

C2EC 


FWDPTR 

C5E7 


GETLPT 

0000 !10 

X 

GETOF'N 

0000:11 

X 

HCAREA 

C593 


INC5IY 

0000 5 12 

X 

INGRO 

C5E9 


INCUSE 

0000 :13 

X 

ISTEEM 

OOOO:14 

X 

JUNK 

C540 


KBCNLP 

0000!15 

X 

KBLOCK 

C5F1 


KEYFLG 

C7FF 


KEYPTK 

C533 


KEYTRK 

C7F7 


k i Cm ib 

0120 " 

I 

KISNL 

OOOO:16 

X 

LF 

OOOA 


LINER 

0000 !17 

X 

LISTON 

G5E2 


MACSTU 

C536 


MACTQP 

C25E 


MAKMIB 

00 AC"' 

I 

MAXFRG 

0040 


MNMX 

C5EB 


NBLKB 

0000 


NBLKM 

0001 


NEWBOT 

C810 


NL 

OOOA 


NSADDR 

CS02 


NUMBUF 

C4A3 


NXTABC 

OOOO:! 8 

X 

NXTLNK 

OOOO:19 

X 

NXTPTR 

0000 :1A 

X 

NXTVAL 

0000 :IB 

X 

OLDCHR 

C4A0 


OLDCUR 

C49F 


OLDKEY 

C49D 


GLDXY 

C5EF 


ONEBUF 



OPRL ' 

0014 


OPRSP 

C55B 


OPRSTK 

C547 


OF'RSZ 

C55D 


OUTOFF 

C2E7 


PCNT 

C55E 


PIXVAL 

CSED 


POXNTE 

C4A7 


PONOFF 

C5DA 


PUTLPT 

0000 !ID 

X 

PUTOF'N 

0000 :1C 

X 

RAMEND 

DFFF 


RAMSTR 

C900 


RANSHT 

C55F 


RMDTMP 

C538 


RUBACK 

0005 


RUBOUT 

007F 


SAVESP 

C25C 


SCNEED 

0004 


SCRWIN 

C7CD 


SDEL 

OOOO:IE 

X 

SNAP 

0000 s IF 

X 

SOPRSP 

C53D 


SOPRSZ 

C53F 


STACK 

C0C8 
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STAKTO 

COCO 

STOP 

005D” 

I 

STRSIZ 

C800 


SUBSTU 

C534 

TAB 

0009 

TAPBUF 

C4B3 


TAPCON 

C4AF 


TAPPRO 

C4B1 

TBFEND 

C533 

TEMPHD 

COCA 


TEMPS 

C2E5 


TMPARG 

C7AD 

TOP 

C818 

TTYBEG 

C261 


TTYEMD 

C2E1 


TTYINT 

C2E3 

TTYPTR 

C2E1 

TXTWIN 

C7E2 


UARTFL 

C49C 


USREND 

C5F1 

V3PTR 

C573 

VDCHAR 

C49E 


VDNLF 

CSGF 


VIF'LH 

C545 

VOICED 

C563 

URMODE 

C5EE 


ZGIM2 

000 . 1 . 


ZGREND 

C81D 

♦A ADR 

0010 

♦ADDRF 

0007 


♦ADDRI 

0005 


♦ADDRS 

0009 

♦ANY 

001A 

♦ANYNA 

FFFC 


♦ANYVA 

FFFE 


♦ARGPT 

0011 

♦BGPTR 

OOOF 

♦BNDL 

0007 


♦CALLE 

OOOD 


♦CMDAD 

0018 

♦CPLBL 

002A 

♦CSBLO 

0028 


♦DATAP 

0007 


♦DOLDE 

0001 

♦DOLOO 

0002 

♦OVAL 

0000 


♦END 

001C 


♦FADR 

OOOE 

♦FLAGS 

0002 

♦PORBL 

0024 


♦FORPT 

OOOB 


♦FVAL 

0006 

♦GOSUB 

001A 

♦ I ADR 

OOOC 


♦INPBU 

0018 


♦INPPT 

0016 

♦ IVAL 

0004 

♦KEYBL 

0026 


♦LENGT 

0001 


♦LINPT 

0005 

$-1.0 OPT 

0009 

♦MIBBL 

0022 


♦MIBEN 

00 IB 


♦NAMAD 

OOOA 

♦NAME 

OOOA 

♦NASCI 

0009 


♦NDEL 

0080 


♦NLINK 

0003 

♦MULL 

0002 

♦NVALU 

0005 


♦REPEA 

00 IE 


♦RVSTU 

0013 

♦SAME 

0020 

♦SASCI 

OOOA 


♦SL.EN 

0006 


♦STRAD 

0008 

♦STRPT 

0003 

♦TAF 

0000 


♦TYPE 

0000 


♦USE 

0005 

. BLNK. 

0000“03 X 

. DATA,. 

0000* 

X 

„PROG. 

014D" 

X 
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.INSERT A»"S 
©.REMARK / 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

©BY 
© 

© 

©/ 

.INSERT 


ASM 


* 

«• -s- a- 

ft‘ 

ftftftftftftft 

ft 

ft 

•ff* 

ft 

ft 

ftftftftftftft 

"WHEN YOU CARE ENOUGH TO PROGRAM 
THE VERY BEST" 

ZGRASS V2 .OOOOOOOO 

JAY FENTON, NOLA DONATO, AND TOM DEFANTI 
.■(C) 1978 


AsZRAM.ASM 


-LINK 
. PREL 

.IDENT CM1 


.INTERN CMDTAB 
.INTERN CQNTAB 
.INTERN DATA 
.INTERN END 
.INTERN FOR 
.INTERN GOTO 


.INTERN IF 
.INTERN LET 
.INTERN NEXT 
.INTERN RESTORE 
.INTERN RETURN 
.INTERN SKIP 
.INTERN THEN 


.EXTERN ABORT 
.EXTERN ACOPY 
.EXTERN ALLOC 
.EXTERN ALLOCD 
.EXTERN ARRAY 
.EXTERN ARG 
.EXTERN BOX 
.EXTERN CARTYP 
.EXTERN CLEARIT 
.EXTERN CMDREN 
.EXTERN CMDRES 
.EXTERN CMDSKP 
.EXTERN CORE 
.EXTERN DELETE 
.EXTERN DISPLAY 
.EXTERN DOMORE 
.EXTERN ERRPGM 
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.EXTERN EVAL 
.EXTERN EVALARG 
.EXTERN EDIT 
.EXTERN FINDHASH 
.EXTERN FINDLAB 
.EXTERN FORMAT 
.EXTERN FREE 
.EXTERN GETDSK 
.EXTERN GETLPT 
.EXTERN GETOPND 
.EXTERN HELP 
.EXTERN HEXML 
.EXTERN INIVDA 
.EXTERN INIVDM 
.EXTERN INIDEV 
.EXTERN INPTTY 
.EXTERN INPUT 
.EXTERN ISNAME 
.EXTERN ISNL. 
.EXTERN KISNL 
.EXTERN KLB 
.EXTERN LARGE 
.EXTERN LINE 
.EXTERN LINEP 
.EXTERN MODIFY 
.EXTERN NAMADR 
.EXTERN NAMSET 
.EXTERN NLPNT 
.EXTERN NXTABC 
.EXTERN NXTLNK 
.EXTERN NXTPTR 
.EXTERN NXTVAL 
.EXTERN DUTCH 
.EXTERN PDECBC 
.EXTERN PRINT 
.EXTERN PRINTF 
.EXTERN PRINTHL 
.EXTERN F'RTYPA 
.EXTERN PSCAN 
. EXTERN F'UTLPT 
.EXTERN PUTOPND 
.EXTERN RENAME 
.EXTERN RETNONE 
.EXTERN RETONE 
.EXTERN RGBINI 
.EXTERN SCANB 
.EXTERN SCANLAB 
.EXTERN SCANNL 
.EXTERN.SCLEAR 
.EXTERN SMALL 
.EXTERN SNAP 
»EXTERN STOP 
.EXTERN STREQK 
.EXTERN SWITCH 
.EXTERN TABPNT 
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.EXTERN TANGENT 
.EXTERN TEXT 
.EXTERN USEMAP 
.EXTERN WHATSIS 


OOOO *“ 

0036" 

CMDTAB: .WORD 

ANYARGS 

0002*“ 

0000 s 0A 

. WORD 

BOX 

0004 

0058“ 

.WORD 

CONTROL 

0006 •" 

0430“ 

. WORD 

DATA 

0008 

0000:17 

.WORD 

EDIT 

000A 

0127" 

„ WORD 

FOR 

OOOC *“ 

03F1" 

. WORD 

GOTO 

OOOE *“ 

0000sIF 

. WORD 

HELP 

001 o ■' 

03B3 " 

. WORD 

IF 

0012-" 

C37C 

. WORD 

AFIX C JIIII ( ” J " -101Q) * 16+FSTI NT 3 

0014 

C38C 

u WORD 

AFIXCKK ( "K"-101Q) * 16+FST INT3 

0016" 

0460 " 

. WORD 

LET 

0018 •" 

0000:2D 

. WORD 

MODIFY 

001 A" 

0269" 

. WORD 

NEXT 

001C •" 

02C4 " 

. WORD 

ONERROR 

001E" 

0000:37 

, WORD 

PRINT 

0020 

C3EC 

. WORD 

AFIXCQ3 C("Q"-101Q)*16+FSTINT 3 

0022" 

030B " 

.WORD 

RETURN 

0024 " 

036F " 

.WORD 

SKIP 

0026 " 

0000:4D 

. WORD 

TEXT 

0028 " 

0000:4E 

. WORD 

USEMAP 

002A " 

C43C 

. WORD 

AFIXIV 31<"V"“101Q)*16+FST1NT 3 

002C " 

0000:4F 

. WORD 

WHATSIS 

002E •" 

C45C 

. WORD 

AFIXIIX3C ( "X101Q)* 16+FSTINT3 

0030 ■" 

C46C 

. WORD 

AFIX L Y 31<"Y"-101Q > *16+FSTINT 3 

0032 •" 

C47C 

. WORD 

AF I XT. Z 3 r: C " Z." -101Q ) * 16+FST I NT 3 

0034 " 

C48C 

FSTOOL 


S *ANYARGS COMMAND** 


5 RETURNS 1 IF THERE"8 ARCS LEFT, 0 OTHERWISE 
M. CMD C AN YARGS, . . ANY X , 0, ARRAY, 0, . . ANY IK 


0036" 

18 +ANYARG 

0037 “ 

03 + 

0038 " 

00 4 - 

0039 *“ 

0000:08 + 

003B " 

0048 *“ 4 

003D" 

0000 + 

003F " 

414E59415247+ 


+ 3 

0047“ 

00 

0048 *“ 

DD2A C25E ..ANY! 

•0040- 

DD7E1B 

004F*“ 

B7 ' 

0050“ 

CO 

0051 •“ * 

5F 

0052“ 

57 


: .BYTE fCMDADR 

.BYTE <..ANYX-ANYARGS)/16+1 
,BYTE 0 
.WORD ARRAY 
.WORD ..ANY1 
. WORD 0 . > 

,ASCIZ /ANYARGS/ 

.BYTE 0 5 NO SWITCHES 

LIXD MACTOP ;SEE IF $MIBEND 

MOV A, $M IBEND< X > ?IS 0 

ORA A "NOPE i RET 1 

RNZ . ?RET TO RETONE 

MOV E,A 

MOV D,A 
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0053"' 

3E04 

MVI A,$IVAL. 

?RET A 0 

0055-' 

0058-' 

C3 0000 s 3F 

JMP RETNONE 

..ANYX: 

5 ***CONTROL COMMAND*** 

M.CMDECONTROL,CONTRX,0,CORE,CONTRH,CONTR13 C 

0058 •' 

18 

+CONTROL: .BYTE 

$CMDADR 

0059 -' 

OD 

+ .BYTE (CONTRX- 

CONTROL.)/16+1 

005A " 

00 

+ .BYTE 0 


005B-" 

0000!10 

+ .WORD CORE 


005D-' 

006A" 

+ .WORD C0NTR1 


005F •' 

006D" 

+ .WORD CONTRH 


0061 •- 

434F4E54524F+ .ASCIZ /CONTROL/ 

+ 3 

0069 •" 

00 

.BYTE 0 


006A •' 

CD 0000 s09 

CONTRis CALL ARG 


006D -' 

0800 

CONTRH: .BYTE $STRADR, 

$TAF 

006F" 

E5 

PUSH H 


0070"' 

FD6E01 

MOV L,1(Y) 

SGET ADDR 

0073" 

FD6602 

MOV H,2(Y) 


0076 -' 

01 000A 

LX.I B ■> $SASC11 

5 GET FIRST CHAR 

0079-' 

09 

DAD B 


007A' - 

7E 

MOV A,M 


007B" 

D640 

SUI "'A "'--I 


007D •" 

F2 0084 

,JP ..OK 

?IS LT 0? 

0080" 


..BAD: ERROR ER.CTL 

5-BAD CHARI 

0080 •" 

CD 0000!14 

+ CALL ERRPGM 


0083"' 

36 

+ .BYTE ER.CTL 

+ 3 

..OKs CPI 27 5 GT Z? 


0084"' 

FE1B 


0086 -' 

F2 0080" 

UP ..BAD 

? YUP 

0089 •" 

57 

CONTRLs MOV D?A 

■SAVE A 

008A 

87 

ADD A 

?DOUBLE IT 

008B "' 

4F 

MOV C,A 

SENTRY FROM 10 SCANNER 

008G " 

0600 

MVI B,0 


008E’" 

21 OOAA" 

LX I H, CON TAB-~2 

5 GO THRU TABLE 

0091 " 

CD 0000:31 

CALL NXTABC 

■ GET VALUE 

0094 •' 

E5 

PUSH H 

5 SAVE IT 

0095 "' 

21 00 A3 -' 

LX I H 7 CONRET 

"RET ADDR 

0098 -' 

E3 

XTHL 

•? ON STACK 

0099 •- 

E5 

PUSH H 

? NOW FETCH FLAGS BYTE 

009A 

21 C5CA 

LX I H,FLAGS-1 

5 HAS 26 BYTES IN TABLE 

009D -' 

4* A 

MOV CUD 

S GET CNTL CHAR BACK 

009E-" 

09 

DAD B 

SB ZEROED BY MVI ABOVE 

009F •" 

7E 

MOV A,M 

SGET FLAG VALUE 

OOAO •" 

EB 

XCHG 

SINTO DE 

00 A1 •" 

El 

POP H 

5 GET GOTO ADDR 

OOA2 " 

E9 

PCHL 

5 GOTO IT 

00 A3 •" 

5F 

CONRET: MOV E>A 

“SETUP FOR RETURN 

00A4 •" 

1600 

MVI D,0 


00 A6 •" 

3E04 

MVI A,$IVAL 


00 A 8 •■' 

/..El';' 

POP H 

SGET H BACK (EOL PTR) 

00A9 ■" 

C3 0000:3F 

JMP RETNONE 

SRETURN WITH A&DE SET 
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00AC "' 

OOFD ' 

CONTABs .WORD CXOR 

? A-AUDIO ON/OFF 

OOAE-" 

OOEA" 

.WORD CLARGE 

5 B—BIG CHARS 

OOBO" 

00F6"' 

. WORD CSIIMC 

;CONTROL C 

00B2 

OOFD*** 

.WORD CXOR 

5 D-DEBUG/SSTEP OFF/ON 

5 CLEARED BY ABORT 

00B4 ■' 

OOFD" 

.WORD CXOR 

?E-ECHO ON/OFF 

00B6 •** 

OOFD*** 

.WORD CXOR 

;F-VIP ON/OFF 

00B8 / 

0101"' 

.WORD CLRALL 

? G-CLEAR ALL 

00BA - 

OOFC"' 

.WORD CSET 

? H-EDITOR <- 

ODBC'" 

OOFC" 

.WORD CSET 

?I-EDITOR INSERT 

OOBE ” 

OOFC *** 

.WORD CSET 

•J—EDITOR' DOWNER 

00co ■' 

OOFC"' 

.WORD CSET 

5 K-EDITOR UPPER 

0002*’ 

OOFC" 

.WORD CSET 

5 L-EDJ.TOR -> 

00C4 

OOFD" 

.WORD CXOR 

? M < RESERVED—CR ) 

0OC6 

0115" 

.WORD CNOISE 

? N -SHUT OFF MUSIC 

00C8'* 

OOFD"' 

.WORD CXOR 

?O-PRINT ON/OFF 
!CLEARED BY ABORT 

OOCA •" 

OOFC"' 

.WORD CSET 

;P-PRINT OFF 
?CLEARED BY ABORT 

oocc *** 

0123"' 

.WORD CQ 

50-PRINT ON 

QOCE"' 

0000541 

.WORD RGBINI 

“R-DEFAULT COLORS 

OODO 

OOF 1 *** 

.WORD CSMALL 

5 S-CHARSET S/L 

OOD2- 

00E5 **’ 

.WORD INITWO 

5 T-TWO LINE WINDOW 

00D4 

OOFD"' 

.WORD CXOR 

5 U—UNUSED 

00D6 " 

OOFC"' 

.WORD CSET 

? V-EDITOR 

00D8 **' 

OOEO" 

.WORD INIWHL 

5 W-WHOLE WINDOW 

OODA 

OOFD" 

.WORD CXOR 

5 X-LIST 

OODC ■" 

OOFC"' 

.WORD CSET 

5 Y-EDI TOR 

CODE’" 

OOFC"' 

.WORD CSET 

5 NOW THE ACTION: 

5 Z—CONTRLZ 

1 CLEARED BY ABORT 

OOEO"' 

21 0000522 

INIWHL5 LXI HiINIVDM 


00E3 •“ 

1808 

,JMPR CLARX 


00E5-’ 

21 0000 5 21 

INITWOS LXI H,INIVDA 


00E8" 

1803 

JMPR CLARX 


OOEA - 

21 00005 2A 

CLARGE: LXI H,LARGE 


OOED •" 

22 C534 

CLARX 5 SHL-D ' SUBSTUFF 


OOF 0 

C9 

RET 


OOF l-' 

21 0000546 

CSMALLs LX I H 7 SMALL 


OOF 4 

18F7 

.JMPR CLARX 


OOF 6 

3C 

CSINC: INR A 

5 INC UNTIL HITS 5 

00F7 •- 

FE05 

CPI 5 


OOF 9 

F2 0000504 

JP ABORT 

5 BINGO 

OOFC 

AF 

CSET5 XRA A 

5 SET TO 1 BY CLEAR/XOR 

OOFD 

EE01 

CXORs XRI 1 

5 FLIP IT 

OOFF 

12 

STAX D 

5 STUFF IT 

0100 " 

C9 

RET 


0101" 

21 C5CB 

CLRALLs LXI H,FLAGS 


0104" 

01 001A 

LXI B 7 26 


0107" 

cd oooo s oc: 

CALL CLEARIT 


01OA " 

21 C593 

LXI H 7 HCAREA 

5 ZAP HAND CONTROLS 

010D" 

01 0010 

LXI B,16 


0 .1. 10 " 

CD 0000 s OC 

CALL CLEARIT 


0113"' 

AF 

XRA A 


0114"' 

O C9 0 

RET 
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0115' 

AF 

CNOISEs 

XRA A 


0 i 16 *" 

32 C5BD 


STA DEVVA 


0119' 

32 C5C1 


STA DEVVB 


011C' 

32 C5C5 


STA JDEVVC 


01 IF-' 

32 C5B9 


STA DEVVN 


012 2 *" 

C9 


RET 


0123" 

IB 

CQ 2 

DCX D 

5 ZAP P BYTE 

0124' - 

AF 

COUT 2 

XRA A 


0125-' 

12 


STAX D 

5 CLEAR IT 

0.126" 
0127-' 

C9 

CONTRX: 

RET 




;***FOR 

COMMAND*#* 




M.CMDTFOR, . . FORX •, 0, FORMATv . . FORA, „ .! 

0127" 

1 8 

+FOR: 

.BYTE ♦CMDADR 


0128" 

13 

4- 

.BYTE (..FORX- 

-FOR)/l6+1 

0129' 

00 

h 

.BYTE 0 


0.12A" • 

000021A 

4* 

.WORD FORMAT 


012G" 

0157" 

4 

.WORD ..FORI 


012E" 

0135" 

4 

.WORD ..FORA 


0130" 

464F5200 

4 

.ASCIZ /FOR/ 




+i 



0134" 

00 


.BYTE 0 

5 NO SWITCHE: 

0135" 

63 

..FORAs 

.BYTE 99 

5 SPECIAL 

0136 " 

4142433D31 

20 

.ASCIZ /ABC~1 

TO 10 STEP 2 



5 FORBLK 

SETUP: 



. FORI 3 r; 


5 0 
5 1 
5 2 

5 3?<4 
5 5&6 
5 7&8 


(FOR EXAMPLE)/ 

$TYPE 

♦LENGTH 

♦FLAGS 

PTR TO PREV FORBLK OR TO MIB 
NOT USED 

ADDR OF CODE FOLLOWING FOR STATEMENT 
ASCII REPRESENTING INCREMENT AND 
CONDITIONAL STATEMENTS CREATED BY FOR 


5 1 . 
i4. 
5 3. 
5 6. 
57. 


5 10 
5 1.1 
5 12 


GENERAL MODE OF ATTACK IS TO: 

ALLOCATE FORBLK AND CHAIN IN AT ♦FORPTR 
IF IT'S VAR= CHANGE TO VAR... 

EVALUATE VAR-EXPR1 
IGNORE "TO" IF THERE 
SAVE PTR TO EXPR2 

SCAN OVER EXPR2 S< SCAN OVER "STEP" IF THERE 
IF NO EXPR3, MAKE EXPR3=1 

, CHECK SIGN OF EXPR3. IF NEC, CHANGE > TO < 
, CREATE STRING VAR-VAR+EXPR3 
CREATE STRING VAR>EXPR2 OR VARCEXPR2 


0157 " 

CD 0000: 

29 

..FORIs CALL KLB 

5 ZIP PAST BLANK 

0 ISA " 

E5 


PUSH H 

5 SAVE PTR TO VAR FOR 

01538 *" 

CD 0000: 

2F 

CALL NAMSET 

5 POINT TO DEL.IM 

015E" 

FE28 


CPI "(" 

5 IS ARRAY? 

0160" 

CC 0000: 

3B 

CZ PSCAN 

5 YEAH, CHECK PAST ) 

0163" 

365F 


MVI M,AASN 

5 STUFF A AASN IN 

0165" 

3E05 


MVI A,5 

5 GET 6 BLOX FER NOW 

0167" 

CD 0000: 

06 

CALL ALLOC 
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016 A 

E5 


F : ‘USH H 

?IX<- FWA OF FORBLK 

016B’“ 

DDE 1 


POP X 


016D •" 

3624 


MVI M,$FORBLK 


016F" 

2A C25E 


LHLD MACTOP 

?CHAIN IT IN 

0172' 

01 000B 


LX I B,$FORPTR 

5 GET PREV FORBLK 

0175- 

09 


DAD B 


017 6 

7E 


MOV A,M 


0177-' 

DD7703 


MOV 3( X)» A 

? PUT IN NEW BLOCK 

017A" 



INX H 


017B-" 

7E 


MOV A,M 


017C 

DD7704 


MOV 4(X)iA 

5 LIKE THIS 

017F-- 

DDES 


PUSH X 


0181-' 

D1 


POP D 

5 NEW FORBLK PTR IN DE 

0182" 

72 


MOV M,D 

5 PUT IN PREV FORBLK 

0183-' 

2B 


DCX H 


0184" 

73 


MOV M,E 

?LIKE THIS 

0185 •" 

El 


POP H 

5PTR TO VAR 

0186 •" 

E5 


PUSH H 

* SAVE IT 

0187" 

CD 0000s16 


CALL EVALARG 

? DO ASSIGNMENT 

018A-" 

CD 0000328 


CALL KISNL 

,ANY MORE 

018D-" 

CA 0247-' 


■JZ . . FORE 

?NOPE-ERROR 

0190-' 

FE2C 


CPI 

5 COMMA? 

0192-' 

2003 


•JRNZ . . F0R2 


0194" 

23 


INX H 

;JUMP OVER IT 

0195' 

.1 SOD 


JMPR ..NOTO 


0197-" 

11 01D6-" 

..F0R2s 

LX I 13,.. TO A 

»SKIP OVER ":to" 

019A-" 

CD 0000s49 


CALL STREQK 


019D •" 

2005 


•JRNZ . . NOTO 

?NOT THERE 

019F-' 

CD 0000s42 


CALL SCANS 

,* SKIP TO BLANK 

01A2"' 

2847 


JRZ ..FORJ 

!IF EOL, ERROR 

01A4 " 

CD 0000329 

..NOTOs 

CALL KLB 


01A7 •" 

E3 


XTHL 

5 SP->EX PR2, HL->VAR 

01A8-" 

E5 


PUSH H 

;SAVE ~>VAR 

01A9-" 

DDES 


PUSH X 

? POINT DE->FORASC11 

01AB-' 

D1 


POP D 

" u . 

7 n it « 

01 AC"' 

7B 


MOV A,E 

'ADD 9 TO IT 

01 AD/ 

C609 


ADI 9 

5 CLUMSY 

01AF •" 

5F 


MOV E,A 


01 BO " 

AF 


XRA A 


01B1 •" 

8 A 


ADC D 


01B2 •" 

57 


MOV D,A 

“WHEW! 

01B3-" 

3E5F 


MVI A,-'..-' 

5 COPY TILL 

01B5"' 

CD 0000 s 05 


CALL ACOPY 


01B8-" 

E1 


POP H 


01B9" 

CD 0000s05 


CALL ACOPY 

3 VAR__VAR._ 

01BC "' 

IB 


DCX D 

, VAR_„VAR 

01BD •" 

El 


POP H 

5 H~>EXPR 

01 BE"' 

E5 


PUSH H 

5 AND SAVE IT AGAIN 

01BF " : 

3E2B 


MVI A, -'+ " 

3 BUILD VAR...VAR+1 

01C1" 

12 


STAX D 


01C2-' 

13 


INX D 


01C3 " 

CD 0000s42 


CALL SCANS 

5 SCAN OVER 

01C6" 

2011 


JRNZ . . STEP 

•l SUMPTIN THERE 

01C8-' 

3E31 


MVI A,"1" 


01C A -' 

12 


STAX D 
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OICB-' 

13 


INX D 


01CC 

AF 


XRA A 


01 CD-- 

12 


STAX D 5 PUT IN 

TERMINATOR 

01CE 

.1.3 


I NX D 


01CF" 

1839 


JMF'R . . PLUS 


01D1 " 

5354455000 

..STEAs 

.ASCIZ /STEP/ 


01D6-- 

544F00 

» f> T U A " 

.ASCIZ /TO/ 


01D? 

CD 0000 5 29 

..STEPS 

CALL KL.B 


01 DC-' 

D5 


PUSH D 

■ SCAN OVER "STEP" IF THERE 

01DD ■" 

11 01D1"' 


LXI Dj..STEA 


01EO y 

CD. 0000 s 49 


CALL STREQK 


01E3-' ' 

2009 


•JRNZ . . NOST 

?NOSTEP! 

01E5-' 

CD 0000s43 


CALL SCANLAB 

“SKIP OVER 

DIES"' 

CD 0000s27 


CALL ISNL 

?CHECK TERMY 

01EB y 

CA 0247-' 

..FORJs 

JZ ..FORE 

?NUTTIN FOLLOWING "STEP" 

01EE-* 

D1 

..MOSTs 

POP D 

;back INTO forblk 

01EF-" 

CD 0000*29 


CALL KLB 


01F2 •" 

FE2C 


CPI 

* COMMA? 

01F4" 

2001 


JRNZ .„NOSE 


01F6 •" 

23 


INX H 


01F'7 

E5 

..NOSES 

PUSH H 

? SVE PTR TO EXPR3 

01F8-" 

EDAO 

..SORES 

LDI 

;COF'Y TILL EOL 

01 FA 

CD 0000 s 27 


CALL ISNL 


01FD 

2 OF 9 


JRNZ ..SORE 


01FF- 

EDAO 


LDI 

s COPY TERMY TOO 

0201 

El 


POP H 

;PTR TO EXPR 3 

0202 x 

3E04 


MVI A>$1VAL 

5 NEED INTEGER 

0204 •" 

CD 0000s15 


CALL EVAL 

* GET SIGN OF EXPR3 

0207 

FD7E02 


MOV A? E.HVAL(Y ) 

;INTO A 

020A - 

E5 

..PLUS! 

PUSH H 

* SAVE EOL FOR CMDRE'T' 

020B 

F5 


PUSH PSW 

? SAVE SIGN IN A 

020C-" 

DDES 


PUSH X 

* GET FORBLK FWA IN HL 

020E 

El 


POP H 


020F 

01 0009 


LXI B,9 


0212-' 

09 


DAD B 

? GET PTR TO VAR IN FORBLK 

0213-' 

3E5F 


MV I A; -' — " 


0215-' 

CD 0000 s05 


CALL ACOPY 


0218 -' 

IB 


DCX D 

5 IGNORE TERMINATOR 

0219-' 

EB 


X CHG 

" GET HL FROM DE 

021A -' 

363E 


MV I Mj •">•" 

5 DEFAULT 

021C -' 

FI 


POP PSW 


02 ID" 

B7 


URA A 

;CHECK SIGN 

02 IE-' 

F2 0223" 


JP „.SOK 

MS POSITIVE 

022 1 •" 

363C 


MV I M i -' < "' 

1 IS NEGATIVE 

0223-' 


..SOKs 

INX H 


0224 -' 

EB 


XCHG 

? DE==HL 

0225" 

El 


POP H 

? EOL BACK 

0226-' 

E3 


XTHL 

ION STACK, HL->EXPR2 

0227-' 

EDAO 

„.COPY5 

LDI 

* COPY TILL BLANK OR NL 

0229" 

7E 


MOV A,M 


022A ■" 

F'E20 


CPI -' •" 


022C ■" 

2809 


JRZ ..E2X 

"BUILD VAR-CEXPR2 

022E 

FE2C 


CPI 


0230" 

2805 


JRZ ..E2X 


0232 *' 

CD 0000s27 


CALL ISNL 
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0235 

20F0 


.JRNZ . COPY 


0237 •" 

EDAO 

u m h 2 X » 

LDI 

5 COPY DELIM TOO 

0239 "* 

DDES 


PUSH X 

? GET FORBLOK FWA 

023B-- 

El 


POP H 

? FOR ALLOCD 

023C 

CD 0000:07 


CALL ALLOCD 

;DE~>1 PAST 

023F •” 

El 


POP H 

? EOL 

0240” 

DD7507 


MOV 7 < X), L 


0243-' 

DD7403 


MOV 8 (X)»H 

5 FOR NEXT 

0246-' 

C9 


RET 


0247-' 

E5 

..FORE! 

PUSH H 


0248" 

DDE5 


PUSH X 


024A - 

El 


POP H 


024B*“ 

CD 0253"' 


CALL FORDEL 


024E-" 

El 


POP H 





ERROR ER.FORE 


024F-' 

CD 0000!14 

+ 

GALL ERRPGM 


0252" 

•pp x 

+ 

.BYTE ER.FOR 




+3 



0253" 


. „ FORX! 



0253"' 

grcr t 

FORDEL! 

PUSH H ? SAVE FO 

iRBLK PTR FOR FREE 

0254/ 

DDES 


PUSH X 


0256"' 

CD 0000:32 


CALL NXTLNK 

5 GET PREV FORBLK 

0259 ■" 

DD2A C25E 


LIXD MACTOP 

5 CURRENT MIB 

025D " 

DD750B 


MOV *FORPTR < X >, L 


0260 •" 

DD740C 


MOV $F0RPTR+1(X> 

* H 

0263-' 

DDE! 


POP X 


0265 •" 

El 


POP H 


0266 •" 

C3 0000!IB 


JMP FREE 





M.CMDC NEXT,..NEXX 7 0,AFIX C N 3,..NEXA,..NEX13 E 

0269 -' 

18 

+NEXT! 

.BYTE fCMDADR 


026A"' 

06 

4 . 

.BYTE (. . NE X X -NE XT)./16+1 

026B 

00 


.BYTE 0 


026C" 

C3BC 


.WORD AFIXCN3 C(" 

N u -101Q)*16+FSTINT 3 

026E •" 

0278" 

-h 

.WORD ..NEX1 


0270 •- 

027B " 

4* 

.WORD ..NEXA 


0272"' 

4E45585400 

+ 

+ 3 

.ASCIZ /NEXT/ 


0277-' 

00 

.BYTE 0 

5 NO SWITCHES 

0278-' 

CD 0000!09 

. . NEX 1 s 

CALL AEG 

5 GET VAR ADDR 

027B-" 

OAOO 

..NEXA: 

.BYTE *NAME,$TAF 

027D"' 

E5 


PUSH H 


027E-' 

2A C25E 


LHLD MACTOP 

!GET AT FORBLK 

0281 •" 

01 OOOB 


LXI B,$FORPTR 

?LATEST ENTRY 

0284 -' 

CD 0000!31 


CALL NXTABC 

!IF ZERO, WE"RE DEAD 

0287 '" 


■ «MXTEs 

ZERROR ER.NXTC 


0287-' 

2004 

4* 

JRNZ ..0001 


0289-' 

CD 0000!14 

■ 4 . 

CALL ERRPGM 


028C"' 

ID 

4- 

.BYTE ER.NXT 


028D •" 


+.. 0001 : 

3 


028D-" 

E5 


PUSH H 

;HL HAS FORBLK ADDR 

028E ■" 

01 0009 


LX I B,9 

?FIRST DO INCR EVAL 

0291 •" 

09 


DAD B 


0292 •" 

CD 0000!16 


CALL EVALARG 

!IGNORE RESULTS 
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cm 


0295 •" 

23 


INX H 

5 POP OVER TERMY 

0296 

3E04 


MVI A,$IVAL 

5 ASK FOR INTEGER 

0298 

CD 0000s15 


CALL EVAL 

?CHECK OUT CONDITIONAL 

029B" 

FD7E01 


MOV A, E.LVAL<Y> 

;GET VALUE 

029E ■" 

El 


POP H 


029F-’ 

B7 


ORA A 

SIS 0 (FAIL, I.E. GO UP)? 

02A0 

200A 


•JRNZ . . FALL 

•NOPE, FALL THRU, DEL FORBLI 

02A2" 

01 0007 


LX I B, 7 

? GET PTR TO BACK AD-DR 

02A5 •" 

CD 0000s31 


CALL NXTABC 

5 GET IT 

02 A8 ■" 

28DD 


•JRZ . „ NXTE 

5 BAD ERROR 

02 AA 

FI 


POP PSW 

•TRASH OLD HL EOL. 

02AB- 

C9 


RET 

5 JUST RETURN 

02AC " 

E5 

..FALLS 

PUSH H 

5 SAVE CURRENT FORBLK 

02 AD" 

DDES 


PUSH X 


02 AF •- 

CD 0000s32 


CALL NXTLNK 

?POINT TO PREV FORBLGK 

02B2 

DD2A C25E 


LIXD MACTOP 


02B6-' 

DD750B 


MOV $FORPTR(X),L 


02B9 •" 

DD740C 


MOV $FORPTR+1(X) 

, H 

02BC -• 

DDE 1 


POP X 


02BE" 

E1 


POP H 


02BF- 

CD 0000s IB 


CALL FREE 

5 ZAP CURRENT 

02 C 2 

El 


POP H 

5EOL PTR 

02C3 

C9 


RET 

• FALL THRU 

02C4" 


..NEXX s 





M. CMD I! ONERROR, . . ONE X, 0, AF IX TJ 03,. . ONE A, . . ONE 1 3 t! 

02C4 •" 

18 

H-ONERROR 

s .BYTE $CMDADR 

02C5 •" 

05 

-i- 

. BYTE ( . . ONEX--ONERROR) /16+1 

02C6 

00 

4* 

.BYTE 0 


Q2C7 

C3CC 

4* 

.WORD AFIX C 0 3 E <" 

0"-101Q)*16+FSTINT 3 

02C9 ■" 

02E7 

4* 

.WORD ..ONE1 


02CB •" 

02D6-" 

4 . 

.WORD ..ONEA 


02CD 

4F4E4552524F-+* 

.ASCIZ /ONERROR/ 




+3 



02D5 

00 


.BYTE 0 

?NO SWITCHES 

02D6 

63 

..ONEA s 

.BYTE 99 


02D7- 

414E59205A47 

.ASCIZ /ANY ZGRA 

SS CODE/ 

02E7 •- 

01 0000 

..ONE1s 

LX I B, 0 

?CLEAR OUT ONEBUF A BIT 

02EA y 

ED43 C729 


SBCD ONEBUF 


02EE-' 

FID43 C72B 


SBCD ONEBUF+2 


0.2F2 

CD 0000528 


CALL KI.SNL 

" EOL? 

02F5-' 

C8 


RZ 

5 YUP, RETURN 

02F6 

11 C72D 


LXI D,ONEBUF+4 

5 START AT #4 

02F9 

ED AO 

..MOREs 

LDI 

“COPY TILL DONE 

02FB" 

CD 0000s27 


CALL ISNL 

? a u te 

02FE-' 

20F9 


■JRNZ . . MORE 


0300 •' 

FE3B 


CPI 

5 COPY TOO 

0302 •“ 

28F5 


JRZ ..MORE 


0304" 

AF 


XRA A 

5 STUFF A NULL IN 

0305 

12 


STAX D 

“AT END 

0306 •" 

3C 


INR A • 

SAND SET ONEBUF FIRST 

0307" 

32 C729 


STA ONEBUF 


030A •" 

C9 


RET 


030B-" 


..ONEX s 
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M „ CMDCRETURN,RETX, 0, REMARK, . . RET A. . . RET! .1L' 


030B "' 

18 

+RETURN: 

.BYTE $CMDADR 


030C “ 

04 

4 

.BYTE (RETX-RETURN)/16+1 

030D 

00 

4 

.BYTE 0 


030E 

044C - 

4- 

.WORD REMARK 


0310-' 

031C- 

4 

.WORD ..RET1 


0312-' 

031F- 

4 

. WORD . R ET A 


0314-' 

5245545552- 

4E4 

.ASCIZ /RETURN/ 


03 IB-' 

00 

+ 3 

.BYTE 0 

;NO SWITCHES 

031C-' 

CD 0000:09 

. . RET1: 

CALL ARG 


03 IF"* 

FE1E 

. . retta: 

.BYTE $ANYVAL, 

^REPEAT 

0321 •" 

CD 0000!IE 


CALL GETOPND 

5 GET THE OPERAND 

0324-' 

B7 


ORA A 

; IS 0? 

0325-' 

2004 


■JRNZ . . RETB 

?NO-GET ARG 

0327-' 

21 033D- 


LX I H, RFAKE 

5 FAKE A NULL 

032A - 

C9 


RET 

? BACK TO RETONE 

032B -' 

FD2A C25E 

..RETB: 

LIYD MACTOP 

?IY -> MIB 

032F-' 

01 0013 


L.X I B, $R VS TUFF 

;SETUP Y 

0332 -' 
0334- 

FD09 

CD 0000!3D 


DADY B 

CALL PUTOPND 

5 STUFF IT 

0337 - 

21 033D" 

RETOUT: 

LX I H,RFAKE 

5 STUFF IT 

033A - 

C3 0000:3F 


•JMP RETMONE 

?AND RETURN VALUE 

033D -' 
0330- 

0000 

RETX: 
RFAKE: 

.WORD 0 ?FAKE NULL EOF 


033F 


„ « RESX-5 

M. GMDEGOSUB» » « GOSX ? 0> GETDSK 7 GOT ARG? » « GO Si II E 

033F *" 

18 

+GOSUB: 

.BYTE $CMDADR 


0340 - 

04 

4 

.BYTE (..GOSX- 

GOSUB)/16+1 

0341 - 

00 

4 

.BYTE 0 


0342- 

0000:1C 

4 

.WORD GETDSK 


0344- 

034F-* 

4 

.WORD .» GOS1 


0346- 

0400" 

4 

„W0RD G0TARG 


0348 - 

474F535542 

:>o+ 

+ 3 

.ASCIZ /GOSUB/ 


034E- 

00 


.BYTE 0 

5 NO SWITCHES 

034F *" 

CD 0000:29 

. . GOS1: 

CALL KLB 

!START LIKE GOTO 

0352-' 

DDES 


PUSH X 

§PUTSTUFF ON STACK 

0354-* 

FDE5 


PUSH Y 

n 

7 a a it 

0356 

E5 


PUSH H 

, save >Tu label 

0357 x 

CD 0000:44 


CALL SCANNL 

? GET LINE TO F^ET TO 

035A ** 

E3 


XTHL 

5 REPLACE ON STACK 

035B-* 

035E-* 

11 0000:40 
D5 


LX I D>RETONE 
PUSH D 

;RETURN ADDR 

035F-* 

FD2A C25E 


LIYD MACTOP 

5 GET &INCR GOSUB BYTE 

0363 

FD341A 


I NR TOOSUB(V > 

?T0 INDICATE GOSUB 

0366 x 

CD 0000:19 


CALL FINDLAB 

5 GET TO CODE 

0369 ** 

CD 0000:3C 


CALL PUTLPT 

5 SAVE LINE PTR 

036C 

036F-* 

C3 0000:13 

. „ GOSX: 

JMP DOMORE 

5 AND EXECUTE IT 


M.CMDCSKIP, . SKP X, 0»STOP, . .8KPA, . . SKP1 31 
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Z80 CP/M DISK ASSEMBLER VERSION 


036F 

18 

+SK1P5- 

.BYTE $CMDADR 


0370" 

05 

4* 

.BYTE <..SKPX-S 

•KIP) /16+1 

0371 •- 

00 

4- 

.BYTE 0 


0372 *" 

0000 5 48 

4* 

.WORD STOP 


0374- 

037E-" 

4' 

.WORD ..SKP1 


0376 x 

0381 **’ 

“h 

.WORD ..SKPA 


0378- 

534B495000 

+ 

»ASCIZ /SKIP/ 




4-3 



037D- 

00 


.BYTE 0 

SNO SWITCHES 

037E *" 

CD 0000 s 09 

. . SKP1 s 

CALL ARG 


0381 -' 

0400 

..SKPA ’ 

.BYTE $IVAL,0 

? GET A NUMBER 

0383 **’ 

FD5E01 


MOV E > .1 < Y) 


U3b«6« ‘ 

FD5602 


MOV D,2(Y) 

? IN DE 

0339 “* 

AF 


XRA A 

;CHECK FOR 0 

038A -‘ 

B2 


ORA D 

5 IS +, 0 OR ~? 

038B -' 

FA 039D •" 


.JM . . SKP 

5 ITS NEGATIVE 

0 2 8 E * 

B3 


ORA E 

?IS ALL ZERO? 

033F " 

280C- 


.JRZ . . SKP 

; its o 

0391 •" 

CD 0000s44 

..SKDNs 

CALL SCANNL 

?SKIP NL-S UNTIL 

0394 •" 

IB 


DCX D 


0395 **’ 

B7 


ORA A 

5 CHECK FOR NULL 

0396**‘ 

cs 


RZ 

!IS NULL (FROM S 

0c*9 / *’ 

7A 


MOV A,D 

5 CHECK FOR DE=0 

0398 *“ 

B3 


ORA E 


0399**’ 

20F 6 


JRNZ . .. SKDN 

n 

7 ii ii it 

039B-- 

2B 


DCX H 

? BACKUP^—>NL.. 

039C •" 

C9 


RET 

"ALL DONE 

039D- 

2B 

..SKP: 

DCX H 

SBACKUP ONE 

039E -' 

7E 


MOV A,M 

5 PICKUP CURRENT i 

039F 

B7 


ORA A 


©3 AO" 

2004 


JRNZ „.NLCK 

5 IS NO NULL 

03A2 •- 

.23 


INX H 

?IS NULLj POINT 

03A3 -' 

C3 0000 5 OE 


JMP CMDRES 

• CHAR OF STRING 

03 A 6 •' 

FEOA 

. NLCK i 

CPI NL 

?IS NL? 

03A8 •" 

20F3 


JRNZ ..SKP 

? NOPE 

03 A A •" 

7 A 


MOV A,D 

?CHECK IF DE“0 

03AB- - 

B3 


ORA E 

II 

7 

03 AC •" 

13 


INX D 

SI NCR JUST IN CA: 

03AD -' 

20EE 


JRNZ ..SKP 

5 MORE 

03 AF" 

C9 


RET 

? NO MORE 

03B0 •" 

2B 

.»DCXs 

DCX H 

? DE=DE-1 

03B1 -' 

1 SEA 


JMPR ..SKP 

? ZIP MORE 

03B3 -' 


« . SKP.X 5 






M.CMDCIF,..FXX, 

0»INPUT,..IFA,„.F 

03B3 •" 

18 

+ IF! 

.BYTE $CMDADR 


03B4 - 

04 

4*. 

.BYTE (..FXX”IF)/I6+1 

03B5-’ 

00 

4* 

.BYTE 0 


03BS-" 

0000S25 


.WORD INPUT 


03B8 •" 

03C0-' 

*4 

.WORD ..FI1 


03BA-' 

03D4 •" 

4- 

.WORD ..IFA 


03BC " 

494600 

4* 

.ASCIZ /IF/ 




+ 3 



03BF - 

00 


.BYTE 0 

“NO SWITCHES 

03C0 •- 

CD 0000 s29 

.Fils 

CALL KLB 

? JUMP OVER BLANX 








M. CMDr:GOTO, GOTOX, 0, GOSUB, GOTARG, GOTO 1 3 C 


03FI ‘ 

18 

+GOTO2 

.BYTE $CMDADR 



03F2-' 

02 

4* 

.BYTE (GOTOX-GOT 

0)/16+i 

03F3" 

00 

4* 

.BYTE 0 



03F4-' 

033F ' - 

4* 

„WORD GOSUB 



03F6"' 

0407' 

+• 

.WORD GOTO1 



03F8-' 

0400 ■" 


. W U R Cl G OTAR G 



03FA-' 

474F544F00 

4- 

+ 3 

.A8CIZ /GOTO/ 



03 FF •- 

00 

.BYTE 0 

; NO 

SWITCHES 

0400' 

63 

GOTARG» 

.BYTE 99 



0401 

4C4142454C00 


. ASCIZ /LABEL./ 



0407 > 

CD 0000!29 

GOTO! s 

CALL KLB 

? ZAP 

BLANX 

040A 

CD 0000!19 


CALL FINDLAB 

! GET 

PTR TO LABEL 

040D •' 

C3 0000!3C 


•JMP PUTL.PT 

? AND 

STORE IT 

041 O' 


GOTOXs 


IS AND 

RETURN 


0410‘" 

18 

+RESTORE 

0411'' 

02 

+ 

0412-" 

00 

4* 

0413-' 

C3FC 

'•{*• 

0415' 

0422 •' 

4- 

0417-' 

0000 

4*’ 

0419' 

524553S44F5 

*"‘4. 



+ 3 

0421 •' 

00 


0422 * 

FD2A C25E 

. . RES 1! 

0426 •' 

FD360700 


042A * 

FD360800 


042E-' 
042F' 

C9 

. „ RESX: 


042F ' 

18 

-i-END s 

0430 •' 

04 

“i” 

0431 •' 

00 

4 * . ■ 

0432 •' 

C32C 

4 * . 


M.CMD CRESTORE,..RESX,0,AFIX E R3,0,..RES13C 
.BYTE $CMDADR 

.BYTE <,.RESX“RESTORE)/16+1 
,BYTE 0 

. WORD AF IX i: R ] C ( " R " -101Q) *1 6+FSTI NT 3 
.WORD .-REST 
.WORD 0 

.ASCI? /RESTORE/ 

.BYTE 0 !NO SWITCHES 

LIYD MACTOR 

MV I $DATAF'TR ( Y >, 0 

MVI fDATAPTR+1(Y),0 5CLEAR OUT 

5 DATAPTR IN MIB 

RET 


M.CMDIEND,ENDX,0,AFIXCE3,0,ENDIII 
.BYTE $CMDADR 
. BYTE (ENDX-END) / :i. 6+1 
.BYTE 0 

.WORD AFIX C E 3 I<"E”™101Q>*16+FSTINT 3 
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END, DATA, 

AND REMARK 

COMMANDS 


0434 

045D"' 

4* 

.WORD END1 

0436 x 

0000 

4* 

.WORD 0 

0438" 

454E4400 

+ 

+ 3 

.ASCIZ /END/ 

043C**’ 

00 

. BYTE 0 5 NO SWITCHES 

M.CMDtDATA,ENDX,0,DELETE,0,END13 t 

043D "' 

18 

+DATAs 

.BYTE $CMDADR 

043E ■- 

03 

4* 

.BYTE (ENDX-DATA)/16+1 

043F 

00 

4* 

.BYTE 0 

0440" 

0000 s11 

4* 

.WORD DELETE 

0442" 

045D X 

4- 

.WORD END1 

0444 •** 

0000 

•4 

.WORD 0 

0446"' 

444 J. 544100 

4 

..L. “1 

.ASCIZ /DATA/ 

044B" 

00 

4* J 

.BYTE 0 ?N0 SWITCHES 

M.CMD t REMARK,ENDX,0,RENAME,0,END13 C 

044C"' 

18 

+REMARK: 

.BYTE $CMDADR 

044D" 

02 

+ 

.BYTE (ENDX-REMARK>/16+1 

044E"' 

00 

4* 

.BYTE 0 

044F •" 

0000. s 3E 

4- 

.WORD RENAME 

0451 "' 

045D x 

+ 

.WORD END1 

0453" 

0000 

4* 

.WORD 0 

0455"' 

5245404152- 

4B4- 

4] 

.ASCIZ /REMARK/ 

045C-" 

00 


.BYTE 0 5NO SWITCHES 

045D "' 
0460" 

C3 00002 OF 

END is 
ENDX s 

•JMP CMDSKP 


M. CMDCLET, . . LETX, 0, LINE, 0, . . LET 1 3 l 


0460" 

18 

+LETS 

.BYTE $CMDADR 

0461" 

01 

•4 

. BYTE <. . LETX-LET)/16+1 

0462"' 

00 

4 . 

.BYTE 0 

0463"' 

0000 s2B 


.WORD LINE 

0465*** 

046E*“ 

•4 

.WORD ..LET1 

0467 y 

0000 

4' 

i, WORD 0 

0469"' 

046D"' 

4C455400 

00 

•4 

+3 

.ASCIZ /LET/ 

.BYTE 0 5 NO SWITCHES 

046E "' 
046F " 

C9 

..LETis 
. »LETX: 

RET 

M. CMD r: THEN, THENX, 0, TANGENT, 0, THEN 1 3 C 

046F"' 

18 

+THENS 

.BYTE fCMDADR 

0470" 

02 

+ 

.BYTE (THENX-THEN>/16+1 

0471" 

00 

+ 

.BYTE 0 

0472" 

OOOOs 4C 

4* 

.WORD TANGENT 

0474" 

047E-' 

4* 

.WORD THEN1 

0476"' 

0000 

-j^ 

.WORD 0 

0478"' 

5448454E 0 0 

4- 

„L, *1 

.ASCIZ /THEN/ 

047D"' 

00 

4 J 

..BYTE 0 5 NO SWITCHES 

047E "' 
047F"' 

E5 

CD 0000229 

THENis 

PUSH H 

CALL KLB ?SCRUNCH BLANX 





PAGE 1 


TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 


CM1 

THEN COMMAND 




0482 

CD 

0000 s OB 

CALL CARTYP 

5 IF NUMERIC, ITS A LABEL 

0485-' 

El 


POP H 

5 RESTORE H 

0486' 

DA 

0407" 

•JC GOTO 1 


0489' 

048A" 

C9 


RET 

THENXs 



END 
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*fSYMBOL TABLE +++++ 


AASN 

005F 


ABORT 

0000:04 

X 

ACOE-Y 

0000:05 

X 

ADDON 

0001 


ALLOC 

0000 s 06 

X 

ALLULD 

0000:07 

X 

ANYARG 

0036" 


ARG 

0000:09 

X 

ARGSTK 

cocc 


ARRAY 

0000:08 

X 

BACKGR 

C5CC 


BLANK 

0020 


BOTRAM 

cooo 


BOTTOM 

C4A9 


BOX 

GOODSOA 

X 

CARTYP 

0000 : OB 

X 

CHARSL 

C5DD 


CLARGE 

OOEA" 


CLARX 

OOED ■' 


CLEARI 

0000 S oc 

X 

CLEARS 

COCA 


CLRALL 

0101 •- 


CMDREN 

0000:OD 

X 

CMDRES 

0000:OE 

■ X 

CMDSKP 

0000sOF 

X 

CMDTAB 

OOOp f 

I 

CNOISE 

0115 


CNTRL 

OOOC 


CNTRLC 

CSCD 


CNTRLO 

C5D9 


CNTRLU 

0015 


CNTRL.Z 

C5E4 


CONRET 

00 A3 


CONTAB 

OOAC" 

I 

C0NTR1 

006A" 


CONTRH 

006D 


CONTRL 

0089 x 


CONTRO 

0058 " 


CONTRX 

0 127 •" 


CORE 

0000:10 

X 

GOUT 

0124- 


CPLARE 

cue 


CF-LSIZ 

0140 


CQ 

0123-" 


CR 

OOOD 


CSBLOK 

C68D 


CSET 

OOFC 


CSFL.AG 

C260 


CSJ-NC 

00F6 x 


CSMALL 

OOF 1"' 


CURCX 

C814 


CURCY 

C816 


CURREN 

C4A5 


C X OR 

OOFD-" 


C » CO 

0011 


c„ Cl 

0012 


C . CX 

OOOB 


C. GY 

OOOD 


C.DP 

0013 


C, ST 

0002 


C.X 

0003 


C. XF 

OOOF 


C. XS 

0007 


C.Y 

0005 


C. YF 

0010 


C. YS 

0009 


DATA 

043D 

I 

DDTON 

CSCE 


DELETE 

0000:11 

X 

DEVCLO 

C579 


DEVCL1 

C57B 


DEVCL2 

C57D 


DEVCL.3 

C57F 


DEVCL4 

CSS 1 


DEVCL5 

CSSS 


DEVCL6 

C585 


DEVGL7 

f:!ri87 


DEVFB 

C5CB 


DEVHCB 

C58F 


DEVMO 

C58B 


DEVNM 

C5B7 


DEVNT 

C58D 


DEVTNA 

C5BB 


DEVTNB 

C5BF 


DEVTNC 

C5C3 


DEVVA 

C5BD 


DEWAR 

C579 


DEVVB 

C5C1 


DEVVBL 

C591 


DEVVC 

C5CS 


DEVVD 

C5C9 


DEVVN 

C5B9 


DEWS 

r:F«r *7 


DEVXCD 

C5B3 


DEVYCD 

C5B5 


DISPLA 

0000:12 

X 

DOL..PLH 

C2E8 


DOL.PPT 

C2EA 


DOMORE 

0000:13 

X 

DUMBST 

C577 


EDBCNT 

C4AD 


EDCCNT 

C4A7 


EDIT 

0000:17 

X 

EDLONG 

C812 


EDMODE 

C81C 


EDNAME 

C4A1 


EDNCX 

C80C 


EDNCY 

C80E 


EDNEWS 

C4A5 


EDOCX 

G808 


EDOCY 

C80A 


EDPN 

C806 


EDF’O 

C804 


EDF'TRC 

C4AB 


EDF'TRL 

C4A9 


EDSTR 

C81A 


END 

042F" 

I 

END 1 

045D"' 


ENDX 

0460"' 


ERABIT 

0002 


ERRPGM 

0000:14 

X 

ER.ARA 

002F 


ER.ARG 

0034 


ER.ASN 

0015 


ER.BOX 

001A 


ER.CHN 

0002 


ER.CMD 

00 IF 


ER.CNV 

0016 


ER.COR 

00 IB 


ER.CTL 

0036 


ER.DEL 

0026 


ER.DIM 

0030 


ER. DIV¬ 

0018 


ER. DE¬ 

0037 


ER.DSK 

0019 


ER.EDT 

0035 


ER. FMT 

0038 


ER. FNF 

001C 


ER.FOR 

0028 


ER.IMP 

0003 


ER.LAB 

0025 


ER.MAC 

0022 


ER.NAE 

002D 


ER.NAM 

0029 


ER.NEG 

003A 


ER.NOT 

0023 


ER.NUL 

0039 


ER.NUM 

002B 


ER.NXI 

00ID 


ER.OFL 

0017 


ER.OPN 

0014 


ER.OVE 

00 IE 


ER.PAR 

002A 


ER.REN 

002C 


ER.RET 

0024 


ER.SEP 

0021 


ER. SNE¬ 

0031 


ER.SPC 

002E 


ER.STK 

0004 


ER. SW 

0032 


ER. TER 

0020 


ER.UFL 

0033 


ER.UNF 

0027 


EVAL 

0000:15 

X 

EVALAR 

0000:16 

X 

EXTDEL 

002E 


E.HVAL 

0002 


E.LVAL 

0001 


E.SIZ 

0005 


E.TYP 

0000 


E.VAL 

0001 


FCWTH 

C5D2 


FCNTI 

C5D3 


E'CNTJ 

G5D4 


FCNTK 

C5D5 


FCNTL 

C5D6 


FCNTV 

C5E0 


FCNTY 

C5E3 


FINONA 

0000:18 

X 

FINDLA 

0000:19 

X 

FIRST 

C4A3 


FLAGS 

C5CB 


FOR 

0127" 

I 

FORDEL 

0253"' 


FOREGR 

C5D0 


FORMAT 

0000:1A 

X 

FRAGSI 

0400 


FREE 

0000:IB 

X 

cr o ircri c* 
r nc.c.L<j 

C5E5 


FSTDOL 

C48C 


FSTINT 

C2EC 


FWDPTR 

C5E7 


GETDSK 

0000:1C 

X 2 

GETLPT 

0000:ID 

X 

GETOF'N 

0000:IE 

X 

GOSUB 

033F -' 


GOTARG 

0400" 


GOTO 

03F1 " 

I 

GOTOl 

0407 •" 


GOTOX 

0410" 


HCAREA 

C593 


HELP 

0000:IF 

X 

HEXHL 

0000:20 

X 

IF 

03B3" 

I 

INCRO 

C3E9 


INIDEV 

0000:23 

X 

INITWO 

00E5" 


INIVDA 

0000:21 

X 

IN1VDM 

0000:22 

X 

INIUHL 

OOEO 


INPTTY 

0000 2 24 

X 

INPUT 

0000s 25 

X 

ISNAME 

0000:26 

X 

ISNL 

0000:27 

X 

JUNK 

C540 


KBLOCK 

C5F1 


KEYFLG 

C7FF 


KEYPTK 

C533 


KEYTRK 

C7F7 


KISNL 

0000:28 

X 
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+++++ SYMBOL TABLE +++++ 


KLB 

0000:29 

X 

LINE 

0000:2B 

X 

MACTOP 

C25E 


NAMADR 

0000:2E 

X 

NEWBOT 

C810 


NSADDR 

C802 


NXTPTR 

0000:33 

X 

OLDKEY 

C49D 


OPRL 

0014 


DUTCH 

0000:35 

X 

PIXVAL 

C5ED 


PRINTF 

0000:38 

X 

PUTLPT 

0000:3C 

X 

RANSHT 

C55F 


RETNON 

0000:3F 

X 

RETX 

033D •" 


RUBACK 

0005 


SCANLA 

0000:43 

X 

SCRWIN 

C7CD 


SOPRSP 

C53D 


STOP 

0000:48 

X 

SWITCH 

0000:4A 

X 

TAPBUF 

C4B3 


TEMPHD 

COCA 


THEN1 

047E" - 


TTYBEG 

C261 


TXTWIN 

C7E2 


V3PTR 

C573 


VOICED 

CS63 


ZGREND 

C81D 


$ADDRS 

0009 


TARGET 

0011 


$CMDAD 

0018 


$DOLDE 

0001 


$FADR 

OOOE 


$FVAL 

0006 


fINPPT 

0016 


$LINPT 

0005 


^NAMAD 

OOOA 


UNLINK 

0003 


$RVSTU 

0013 


^STF^AD 

0008 


$IJSE 

0005 



LARGE OOOOS2A X 
L.INEP 0000! 2C X 
MAXF'RG 0040 
NAMSET 0000!2FX 
NEXT 0269" I 
NUMBUF C4A3 
NXTVAL 0000534 X 
OLDXY C5EF 
OPRSP C55B 
OUTOFF C2E7 
■pOINTE C4A7 
PRINTH 0000!39 X 
PUTOPN 0000!3D X 
REMARK 044C-" 
RETONE 0000!40 X 
RFAKE 033D "’ 
RUBOUT 007F 
SCANNL 0000!44 X 
SKIP 036F-" I. 
SOPRSZ C53F 
STREQK 0000:49 X 
TAB 0009 
TAPCON C4AF 
TEMPS C2ES 
THENX 048A" 
TTYEND C2E1 
UARTFL C49C 
VDCHAR C49E 
WHATSI 0000:4F X 
$AADR 0010 
$ANY 001A 

$BGPTR OOOF 
$CPLBL 002A 
$DOLOO 0002 
$FLAGS 0002 
$GOSUB 001A 
$IVAL 0004 
♦LOGPT 0009 
*NAME OOOA 
$NULL 0002 
$SAME 0020 
$STRPT 0003 
.BLNK. 0000:03 X 


LET 0460" I 

LISTON C5E2 
MNMX C5EB 
NBLKB 0000 
NL OOOA 

NXTABC 0000:31 X 
OLDCHR C4A0 
ONEBUF C729 
OPRSTK C547 
PCNT C55E 
PONOFF C5DA 
PRTYPA 0000!3A X 
RAMEND DFFF 
RENAME 0000:3E X 
RETOUT 0337“" 

RGBINI 0000:41 X 
SAVESP C25C 
SCLEAR 0000:45 X 
SMALL 0000:46 X 
STACK C0C8 
STRSIZ C800 
TABF'NT 0000: 4B X 
TAPPRO C4B1 
TEXT 0000!4DX 
TMPARG C7AD 
TTYINT C2E3 
USEMAP0000:4E X 
VDNL.F C5CF 
WRMODE C5EE 
$ADDRF 0007 
$ANYNA FFFC 
$BNDL 0007 
itCSBLO 0028 
$DVAL 0000 
$FORBL 0024 
$IADR OOOC 
$KEYBL 0026 
itMIBBL 0022 
$NASCI 0009 
itNVALU 0005 
fSASCI OOOA 
$TAF 0000 
» DATA„ 0000* X 


LF 

OOOA 


MACSTU 

C536 


MODIFY 

0000:2D 

X 

NBLKM 

0001 


NLP NT 

0000:30 

X 

NXTLNK 

0000:32 

X 

OLDCUR 

C49F 


ONERRO 

02C4 


OPRSZ 

C55D 


PDECBC 

0000:36 

X 

PRINT 

0000:37 

X 

PSCAN 

0000:3B 

X 

RAMSTR 

C900 


RESTOR 

0410" 

I 

RETURN 

030B" 

I 

RMDTMP 

C538 


SCANS 

0000:42 

X 

SCNEED 

0004 


SNAP 

0000:47 

X 

STAKTO 

cooo 


SUBSTU 

C534 


TANGEN 

0000:4C 

X 

TBFEND 

C533 


THEN 

046F" 

I 

TOP 

C818 


TTYPTR 

C2E1 


USREND 

C5F1 


VIPLH 

C545 


ZGIM2 

0001 


$ADDRI 

0005 


$ANYVA 

FFFE 


itCALLE 

OOOD 


$datap 

0007 


$END 

001C 


$FORPT 

OOOB 


$INPBU 

0018 


itLENGT 

0001 


$MIBEN 

00 IB 


$NDEL 

0080 


$REPEA 

00 IE 


$SLEN 

0006 


$TYPE 

0000 


.PROG. 

048A ■" 

X 
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.INSERT 

As S.ASM 


©.REMARK 

/ 


© 



© 


& # # 

© 



© 



© 



© 


«• 

© 



© 



© 



© 



© 




© "WHEN YOU CARE ENOUGH TO PROGRAM 

© THE VERY BEST" 

© 

© ZGRASS V2.OOOOOOOO 

©BY JAY FENTON, NOLA DONATO, AND TOM DEFANTI 
© CO 1978 

© 

©/ 

.INSERT As ZRAM.ASM 
.LINK 
.PREL 

.IDENT CM2 
.INTERN CORE 
.INTERN DELETE 
.INTERN HELP 
.INTERN INPUT 
.INTERN KBCNLP 
.INTERN PRINT 
.INTERN PROMPT 
.INTERN RENAME 
.INTERN WHATSIS 


.EXTERN ABORT 
.EXTERN ACOPY 
.EXTERN ALLOC 
.EXTERN ALSTR 
.EXTERN ARG 
.EXTERN ASSIGN 
.EXTERN CARTYP 
.EXTERN CLEAR 
.EXTERN CLEARIT 
.EXTERN CLEARVAL 
.EXTERN CMDSKO 
.EXTERN DECSIY 
.EXTERN DELBAG 
.EXTERN DISPLAY 
.EXTERN DOMORE 
.EXTERN ENDSTR 
.EXTERN ERRPGM 
.EXTERN EVAL 
.EXTERN FINDHASH 
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.EXTERN FINDLAB 
.EXTERN FREE 
.EXTERN GETDSK 
.EXTERN GETLPT 
.EXTERN GETOPND 
.EXTERN HEXHU 
.EXTERN INC5IY 
.EXTERN INPTTY 
.EXTERN INT 
.EXTERN ISNAME 
.EXTERN ISNL 
.EXTERN KISNL 
.EXTERN KLB 
.EXTERN LN 
.EXTERN NAMADR 
.EXTERN NAMSET 
.EXTERN NLPNT 
.EXTERN NXTABC 
.EXTERN NXTLNK 
.EXTERN NXTPTR 
.EXTERN NXTVAL 
.EXTERN OUTCH 
.EXTERN F'DECBC 
.EXTERN POWER 
.EXTERN PRINTF 
.EXTERN PRINTHL 
. EXTERN F'RTYPA 
.EXTERN PSHOPND 
.EXTERN PUTOPND 
.EXTERN RESTORE 
.EXTERN RETNONE 
.EXTERN SCANS 
.EXTERN SCANLAB 
.EXTERN SCANNL 
.EXTERN SFREE 
.EXTERN STREQK 
.EXTERN SWITCH 
.EXTERN TABPNT 
.EXTERN TEMPCHN 
.EXTERN TEMPUN 


LP*$ ,r 


• *HELP COMMAND* 

M. CMD L HELP, „ . HEL X, 0, AFIX C H3,0, . . HEL. 1 1 II 


oooo 

1.3 

4-HELP" 

.BYTE $CMDADR 


0001 

OF 

4* 

. BYTE ( . . HELX--HELP ) /16+1 

0002” 

00 

4- 

.BYTE 0 


0003” 

C35C 

4- 

.WORD AFIXCHII [ ( 

"H"-101Q> *16+FSTINT3 

0005" 

OOOF" 

4 

.WORD ..HEL1 


0007 •" 

0000 

4 

.WORD 0 


0009 •" 

48454C5000 

+ 

.ASCIZ /HELP/ 




+ 3 



OOOE 

00 


.BYTE 0 

?NO SWITCHES 

OOOF " 

CD 0000“22 

..HEL15 

CALL KISNL 

;IS EOL 

0012"' 

2052 


,JRNZ . . HMES 

? NOPE 

0014"' 

CD 0000«2F 


CALL PRINTFF 



PAGE 
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0017- 

545950452048 


.ASCIZ /TYPE 

HELP PLUS ONE OF: 

002D •’* 

OOOAOO 

/ 



0030- 

E5 


PUSH H 

■SAVE EOL PTR 

0031- 

3E41 


MVI A,-A" 

;CHAIN THRU ALL NAMES 

0033- 

pg 

..DOIT: 

PUSH PSW 

5SAVE CONTENTS OF A 

0034' 

CD 0000!16 


CALL FINDHASH 

? GET ADDR OF HASH ENTRY 

0037- 

01 OOOE 


LX I B?14 

SPOINT TO COMMANDS 

003A - 

CD 0000 s28 


CALL MXTABC 

;GET PTR 

003D- 

7E 

..CHEK: 

MOV A,M 

5 SEE IF COMMAN 

003E- 

FE18 


CPI $CMDADR 

N **"• •*”« 

0040- 

2011 


JRNZ ..MORE 

? END OF COMMANDS 

0042- 

E5 


PUSH H 

5 SAVE F'TR TO NAME START 

0043- 

01 0009 


L.X I B, $NASCI I 

5 GET PTR TO ASCII 

0046" 

09 


DAD B 


0047 ' 

CD 0000 s30 


GALL PRINTHL 

SPRIT. WHAT HL~> AT 

004A - 

CD 0000:3C 


CALL TABPNT 


Q04D" 

El 


POP H 


004E" 

CD 0000:29 


CALL NXTLNK 

“GET NEXT NAME 

0051 - 

18EA 


JMPR .-.CHEK 


0053 - 

FI 

..MORE: 

POP PSW 

5 GET HASH CHARACTER BACI 

0054- 

FE24 


CPI '■%' 

SDONE $ YET? 

0056" 

2809 


JRZ . .EXIT 

. YUP—DONE 

0058 - 

3C 


INR A 

?N0, BUMPSIE 

0059- 

FE5B 


CPI -Z-+1 

” DONE WITH Z? 

005B- 

20D6 


JRNZ ..DOIT 

?NAH 

005D- 

3E24 


MV I A i 

? DO % NAMES 

005F- 

18D2 


JMF'R . . DOIT 


006 If 

CD 0000:27 

..EXIT: 

CALL NLPMT 

5 PRI NT NL 

0064 - 

El 


POP H 


0065- 

C9 


RET 

* all dune 


0066 - 

FE2C 

. . TIMES: 

CPI -7- 

0068‘" 

2001 


JRNZ ..HM2 

006A"' 

23 


INX H 

006B- 

CD 0000:26 

..HM2: 

CALL NAMSET ;LOOKUP NAME 

006E - 

AF 


XRA A 

006F * 

CD 0000s25 


CALL NAMADR 

NZERROR ER.NAMEI 

0072 *'* 

2804 

4* 

JRZ ..0001 

0074 x 

CD 0000:14 

+ 

CALL ERRPGM 

0077 ** 

29 

4- 

.BYTE ER.NAME 

0078- 


+..0001: 

1 

0078- 

E5 


PUSH H 5SAVE EOL PTR 

0079- 

EB 


XCHG 5 GET NADDR IN HL 

007A - 

7E 


MOV A,M 

007B- 

FE18 


CPI SCMDADR 5 IS COMMAND? 

007D- 

2052 


JRNZ ..USER “NAH 

007F- 

CD pOO0:2F 


CALL PRINTFF 

0082" 

434F4D4D414E 

.ASCIZ /COMMAND LIKES: / 

0092 - 

01 0007 


LX I B 7 $NASC11—2 SPRINT NAME 

0095 

09 


DAD B 5 POINT AT IT 

0096 - 

E5 


PUSH H "SAVE ARG LIST ADDR 

0097- 

23 ' ’ 


INX H 

0098- 



INX H 


PACE 3 
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J. ' . - 

0099-' 

CD 0000 s 30 

CALL PRINTHL 


009C" 

El 

POP H 

;GET ADDR OF ARG LIST 

009D" 

CD 0000s2A 

CALL NXTPTR 

?IF HL->0 i QUIT 

00 AO" 

2012 

.JRNZ ..PRIT 


00 A 2'" 

CD 0000:2F 

CALL PRINTFF 


00A5*“ 

202842592049 

.ASCIZ / (BY IT 

SELF) / 

00B2 

1SAD ..EX IIs 

■JMPR ..EXIT 


00B4 •" 

3E20 ..FRIT! 

MVI A,;" "' 

;PRINT SPACE 

00B6 ** 

CD 0000:2C 

CALL DUTCH 


00B9" - 

7E 

MOV A,M 

? GET ARGLST TYPE 

OOB A" 

B7 

ORA A 

?IF 0, END 

OOBB" 

28A4 

JRZ ..EXIT 

f u a u 

OOBD" 

FE1E 

CPI ^REPEAT 


OOBF *•' 

28A0 

.JRZ . .EXIT 


00 C 1 

FE63 

CPI 99 

; IF 99 7 SPECIAL 

00C3" 

2'd>U& 

JRZ ..SPEC 


0005 

CD 0000531 

CALL PRTYPA 

SPRINT TYPE IN A 

00C8 

23 

I NX H 


00C9 

18E9 

JMPR ..PRIT 

5 CONTINUE 

OOCB" 

23 ..SPECS 

INX H 


OOCC"' 

CD 0000 s 30 

CALL PRINTHL 

SPRINT SPECIAL STRING 

OOCF •" 

1890 

JMPR ..EXIT 


OOD 1 •" 

F5 „ w USERs 

PUSH PSW 


00D2" 

01 0009 

LX I- B» $NASCI I 


00D5" 

09 

DAD B 


00D6-" 

CD 0000:30 

CALL. PRINTHL 


00D9 " 

CD 0000s2F 

CALL PRINTFF 


00 DC •" 

20495320594F 

.ASCIZ / IS YOUR / 

00E6 •" 

FI 

POP PSW 


00E7-' 

CD 0000531 

CALL PRTYPA 


OOEA-" 

18C6 

JMPR ..EX11 


OOEC" 

..HELX 5 




; ttCORE 

COMMAND* 



M.CMD L CORE,..COR X, 0 ,CLEAR > 0 >..COR1K 

OOEC-" 

18 +CORE s 

.BYTE $CMDADR 


OOED " 

05 + 

.BYTE (..CORX--C 

ORE)/16+1 

OOEE-" 

00 + 

.BYTE 0 


OOEF •" 

00005 OB + 

.WORD CLEAR 


OOF 1 •" 

OOFB **’ -i- 

.WORD ..C0R1 


00F3 •" 

0000 4- 

.WORD 0 


OOFS'" 

434F524500 + 

.ASCIZ /CORE/ 



+ 3 



OOF A-' 

00 

.BYTE 0 

SNO SWITCHES 

00FB" 

E5 ..CORis 

PUSH H 


OOFC •" 

CD 000052F 

CALL PRINTFF 

SPRINT HEADER 

OOFF ■" 

414444522053 

.ASCIZ /ADDR S 

IZE 

0108"' 

ODOAOO / 



01 OB •" 

21 C5E7 

LXI hvfwdptr ;hl->first fwd ptr 

010E" 

5E ..Cl: 

MOV E)M 

SDE->NEXT ITEM 

010F-' 

O '’Z* 

INX H 


01 1 0 •" 

56 

MOV D,M 


011 1 •" 

IB 

DCX D 

S DE;»SI ZE FIELD 

011 2 •" 

1 A 

LDAX D 

5 A=BLOCK SIZE 

0113" 

B7 

ORA A 

5 IS LISTHEAD? 

0114-' 

28 IE 

JRZ' : ..EX 
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0116-' 

CD 0000s1C 


CALL HEXHL 


5 PRINT OUT ADDR 

0119 - ' 

2B 


DC X H 


?1ST HI ORDER 

on A " 

CD QOOOs1C 


CALL HEXHL 


? THEN L.0 ORDER 

01 ID" 

CD OOOOs 3C 


CALL TABPNT 


5 THEN A TAB 

0120 " 

1A 


LDAX D 


!A=SIZE (BLOCKS) 

0121 "' 

2600 


MVI H» 0 


!HL=BLOCK SIZE 

0123"' 

6 F 


MOV L»A 



0 i 24 **’ 

29 


DAD H 


? B l_ 0 C K S - > BYTE S 

0125 **’ 

29 


DAD H 



0126 •’ 

29 


DAD H 



0127" 

29 


DAD H 



0128" 

44 


MOV BiH 


"BC=BYTE SIZED 

0129"' 

4D 


MOV C i L 



012A" 

CD 0000!2D 


CALL PDECBC 


?PRINT THE SIZE 

012D" 

EB 


XCHG 


!HL~>SIZE 

012 E"' 

CD 0000!27 


CALL NLPNT 


5CR,LF 

0131"' 

22 


I NX H 


?HL~>FWD PTR AGAIN 

0132*' 

18DA 


JMPR ..Cl 


■ DO NEXT ONE 

0134 **’ 

El 

. .EX: 

POP H 



0135-" 

C9 


RET 



0136" 


« » COR X s 






5 ^DELETE COMMAND* 






M.CMDCDELETE,.. 

DXX,0, 

DISPLAY,..DELA,..D11K 

0136"' 

18 

+DELETE: 

.BYTE $CMDADR 



0137"' 

03 

4- 

.BYTE (..DX X-DELETE)/16+1 

0138" 

00 

4- 

.BYTE 0 



0139"' 

OOOOs 11 

4- 

.WORD DISPLAY 



013B-" 

0147- 

4* 

.WORD ..DU 



013D-' 

014A- 

4- 

.WORD ..DELA 



013F "' 

44454C45544 

54- 

.ASCIZ /DELETE/ 





+:\ 




0146"' 

00 


.BYTE 0 

5 NO SWITCHES 

0147- 

CD 0000!08 

..Dll: 

CALL ARG 



014 A •" 

0 A 1 E 

» M DELA“ 

.BYTE $NAME? ^REPEAT 


014C- 

E5 


RUSH H 



014D- 

FD7E00 

. .MORE: 

MOV A,0 < Y) 

; GET 

TYPE 

0150- 

B7 


ORA A 

* CHEC 

K FER NULL 

0151- 

280E 


JRZ ..DONE 

?IS ALL DONE 

0153- 

FD6602 


MOV H,2(Y) 

" GET 

ADDR 

0156- 

FD6E01 


MOV L,1(Y) 

? TO DELETE AT 

0159- 

CD 0000:10 


CALL DELBAG 

;DELETE IT 

0150 - 

CD 0000:ID 


CALL INC5IY 

? INC 

IT 3 

015F- 

18EC 


JMPR ..MORE 



0161- 

El 

. .DONE: 

POP H 



0162- 

C9 


RET 



0163- 


. . DXX: 






5*INPUT 

COMMAND FOR INTEGERS* 


0163" 

CD 0000:22 

KBCNLPs 

CALL KISNL 

5 KILL 

BLANX 

0166" 

C8 


RZ 

? RZ ON EOL-S 

0167- 

FE29 


CPI ->- 

! AND 

)-S 

0169" 

C8 


RZ 



016ft"' 

FE2C 


CPI -,- 

; BUT 

SCAN COMMAS' 

016C- 

CO 


RNZ 



016D- 

23 


INX H 

; SKIP 

COMMA 
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016E"' 18F3 

0018 


JMPR KBCNLP 5 . * . 

$INPBUF=$INPPTR+2 
?INPUT COMMAND SYNOPSIS 
SMIB USAGE 

■INPPTR - HOLDS PTR TO DELIM BEFORE CURRENT ARG 
; SO IT KNOWS WHERE TO-CONTINUE 

5ARGPTR - HOLDS PTR TO CURRENT ARG TO FEED TO 

INPUT ARCS. IF *MIBEND->A NULL, THIS 
S IS AN ASCII STRING TO FEED TO 

i EVAL, OTHERWISE IT IS A PASSED ARG LIS 

S IN THE MIB 

SINPBUF ~ HOLDS POINTER TO ARGLIST TYPED IN 
? BY USER VIA INPTTY 

;CASE 1—INPUT FROM PASSED ARG LIST IN MIB 


5 EQUATE 

« 

* 

5 $INPPTR 
S$INPBUF 
; *ARGPTR 


VALUE IN OUT 

NOT DONE 
0 DELIM 

0 0 

$MIBEND NEXT 


DONE 

0 

0 

NEXT 


5$MIBEND ARCS ARGS ARGS 

"CASE 2A—TTY INPUT NEEDED (FIRST TIME 


CALLED) 


; ^EQUATE 

VALUE IN 

OUT 




NOT DONE 

DONE 

5 $INPPTR 

0 

DELIM 

0 

; % INPBUF 

0 

BUFF ADDR 

0 

;$ARGPTR 

0 

DELIM 

0 

5$MIBEND 

0 

0 

0 


M,GMDCINPUTi 


INPX i 0, I NT, . . INPA, . . INPUC 


03.70- 

18 

+INPUT: 

.BYTE $CMDADR 

03.71- 

10 

4. 

.BYTE (..INPX-INPUT)/16+1 

0172- 

00 

4* 

.BYTE 0 

0173- 

0000:IF 

4* 

.WORD INT 

0175“ 

018D- 

+ 

.WORD ..INP1 

0177- 

01 DC- 

4* 

.WORD ..INPA 

0179- 

494E50555400+ .ASCIZ /INPUT/ 

+ ] 

M. SWITCH!NAME,..NAME,,.INPA3C 

017F- 

0189- 

4- 

.WORD ..NAME 

0181 - 

01 DC- 

4. 

.WORD ..INPA 

0183 - 

4E414D4500 

+ 

.ASCIZ /NAME/ 

0188- 

00 


.BYTE 0 ”END OF SWITCHES 

0189- 

3E0A 

..NAMES 

MVI A,fNAME ;ASK FOR NAME 

018B- 

1802 


JMPR ..INPN 

018D- 

3E06 

. . INP1 s 

MV.I A,$FVAL 

018F- 

DD2A C25E 

..INPNs 

LI XD MACTOP * LOAD IX 

0193" 

DD7714 


MOV $RVSTUF+1(X),A 5 SAVE TYPE 

0196- 

EB 


XCHG ?SAVE HL IN DE 

0197- 

DD6617 


MOV H,$INPPTR+1(X) 

019A- 

DD6E1 6 


MOV L,$INPPTR(X)"GET INPUT LINE PTR 
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019D-" 

7C 


MOV A»H 

5 IS ZERO? 

019E" 

B5 


ORA L 

5 IF SO. NEW INPUT COMMAND 

019F-- 

2001 


•JRMZ . . INPP 

5 ELSE USE IT AS PTR 

01A1 

, EB 


XCHG 

5 GET HL BACK 

01A2 / 

pen* 

.„INPP: 

PUSH H 

5 SAVE PTR INTO LINE 

01 AS” 

CD 0163-' 


CALL KBCNLP 

;SCAN BL.ANX, COMMANS 

01A6" 

2031 


JRNZ ..GET 

; CLOSE > AMD EOL-'S 

01 A3-' 

E5 

..DOME: 

PUSH H 

5 DONE!, CLEANUP $INPBUF 

01A9 

DD6E18 


MOV L.,$INPBUF(X) 

5 IF ALLOC- D 

01 AC" 

DD6619 


MOV H,$INF*BUF+1 (X) 

01AF"' 

7C 


MOV A,H 

?IS THERE? 

01 BO •' 

B5 


ORA L 


01 Bl" 

2S0A 


JRZ ..DXX 

;nah 

01B3-" 

01 FFFB 


LXI B» —5 

? ADDR IS ALLOC"D BLOCK 

01B6" 

09 


DAD B 

5 PLUS 5 

01B7"' 

CD 0000 - 3E 


CALL TEMPUN 

STEM UNLINK IT 

01 BA"' 

CD 0000:18 


CALL FREE 

5 RESTORE IT 

0.1 BD" 

El 

..DXX: 

POP H 

5 EOL POINTER 

01 BE"' 

AF 


XRA A 

SCLEAR A 

01BF-" 

DD7716 


MOV $INPPTR(X)* A 


01C2"' 

DD7717 


MOV fINPPTR+1(X) 

, A 

01C5"' 

DD’7718 


MOV $INPBUF(X)j A 


01C3 

DD7719 


MOV $INPBUF+1(X) 

. A 

01CB-' 

DD7E1B 


MOV A,$MIBEND(X) 

5 ZAP ONLY IF 

01CE"' 

B7 


ORA A 

“MIBEND=$TAF 

01CF-' 

2006 


JRNZ ..our 


01 Dl"' 

DD7711 


MOV $ARGPTR(X),A 

01D4-' 

DD7712 


MOV ^ARGPTR+1(X) 

i A 5 CLEAR IOKIES 

01D7 -' 

FI 

..OUT: 

POP PSW 

5 TRASH ENTRY POINTER 

01D8-" 

C9 


RET 

SAND GO BYEBYE 

01D9 

CD 0000:08 

..GET: 

CALL ARG 


01 DC " 

OAOO 

. . INF*A: 

.BYTE $NAME,$TAF 

01DE •" 

CD 0000:ID 


CALL INC5IY 

5 FOR ASSIGN BELOW 

01E1 ■' 

E5 


PUSH H 


01E2"' 

DD6E11 


MOV L,$ARGPTR(X) 

5 GET ARG LIST 

01E5 -' 

DD6612 


MOV H,^ARGPTR^1< X) 5 SET BY DOMACRO 

01E8 -' 

7C 


MOV A,H 

S SEE IF ZILCH 

01E9 •" 

B5 


ORA L 


01E A"' 

284B 


JR 1 ..TTY 

SIT IS, NEED HUMAN NOW 

01 EC -' 

'7E 


MOV A>M 

SIS $MIBEND =0? 

01 ED " 

B7 


ORA A 

5 OR IS ARCS DONE FOR? 

01 EE 

2847 


JRZ ..TTY 

SYUP-DO HUMAN INPUT 

01FO "' 

DD7E1B 


MOV A i f>M I BEND ( X ) 

5 CHECK THIS TOO 

0.1.F3"' 

B7 


ORA A 

5 IF ZILCH, ARGS IS ASCII 

01F4-' 

282.C ' 


JRZ . . 7 1"A 

S FROM MULTI-HUMAN INPUT 

01F&-" 

E5 


PUSH H 

5 FER SURE GOT PASSED ARG 

01F7 -' 

FDE3 


XTIY 

5 LIST, POINT IY AT l'T 

01F9 "' 

CD 0000:IB 


CALL GETOPND 

5 GET STUFF INTO A&DE FOR 

01FC" 

CD 0000:ID 


CALL. INC5IY 

5 ASSIGN BELOW 

01FF •" 

FDE3 


XTIY 

S GET EVAL-'S IY BACK 

0201 ■" 

El ' 


POP H 

SAND PTR INTO HL 

0202 -' 

CD 0000-33 

..STUF: 

CALL PUTOPND 

5 STUFF DEStA INTO IY 

0205 -' 

7E 


MOV A,M 

SIS ->NULL? 

0206-' 

B7 


ORA A 


0207-' 

2002 


JRNZ ..OK 

5 NO 
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0209 ' 

67 


MOV H»A 

? ZERO IT 

.020A" 

6F 


MOV LrA 

;ARGPTRj THAT IS 

020B-" 

DD75U 

. . OK: 

MOV $ARGPTR(X),L 

?POINT AT NEXT 

02 OE ' 

DD7412 


MOV $ARGPTR+1(X) 

,H ?ARG IN LIST 

0211 ' 

CD 0000:09 


CALL ASSIGN 

5 DO ASSIGNMENT 

0214-' 

El 


POP H 

;GET TERMY ADDR BACK 

0215' 

DD74-17 


MOV $INPPTR+1(X) 

,H 5 STORE IT 

0218' 

DD7516 


MOV $INF‘PTR(X) ,L 


02 IB' 

CD 0000 sOF 


CALL DECSIY 

5 RESET IY 

02 IE' 

FI 


POP PSW 

5 TRASH OLD TERMY ADDR 

02 IF' 

C3 01A2' 


•JMP . . INPP 


0222' 

CD 0163' 

..TTA: 

CALL KBCNLP 

■ SCAN TO NEXT ARG IN LIST 

0225' 

2810 


JRZ ..TTY 

? NONE-GET INPUT 

0227' 

DD7E14 

..TARG: 

MOV A,$RVSTUF+1(X> 5 GET TYPE WANTED 

022A ' 

CD 0000:15 


CALL EVAL 

?INTO A&DE 

022D' 

CD 0000:IB 


CALL GETOPND 

■ GET IT 

0230' 

FEOA 


CPI $NAME 

MS I.IMP. NAME? 

0232' 

CC 0264' 


CZ CNVNAM 

;DO STRING MASSAGE 

0235' 

18CB 


.JMPR . . STUF 

? AND SETUP ARGPTR? ETC. 

0237' 

DD6619 

..TTY: 

MOV H 7 $INPBUF+1(X) ?GET BUF ADR 

023A' 

DD6E18 


MOV L.,$INPBUF(X> 


023D' 1 

7C 


MOV A,H 


023E ' 

B5 


ORA L 


023F ' 

2018 


JRNZ ..ISBF 

?GOT ONE ALREADY 

0241' 

3E08 


MVI A,8 

■ GET 9 BLOX 

0243 ' 

CD 0000:06 


CALL ALLOC 


0246' 

CD 0000:3D 


CALL TEMPCHN 

5 ALLOC&TEMPCHAIN 

0249 ' 

01 0005 


LXI B,5 

5 ADD 5 TO POINT 

024C' 

09 


DAD B 

■AT BUFFER COUNT 

024D ' 

01 0080 


LX I B,128 

5 CLEAR STUFF 

0250' 

CD 0000:OC 


CALL CLEARIT 


0253' 

DD7419 


MOV $IMPBUF+1(X) 

? H 5 SAVE ADDR 

0256' 

DD7518 


MOV $INPBUF(X),L 


0259' 

CD 0000:IE 

..ISBF: 

CALL INPTTY 

5 GET HUMAN TO 

025C ' 

23 


INX H 

5 TYPE SOMETHING 

025D 

28C8 


JRZ ..TARG 

? JUMP OVER COUNT 

025F' 

FI 


POP PSW 

5 NO NL YET 

0260' 

FI 


POP PSW 

■FAIL 

0261' 

C3 0000:OE 


JMP CMDSKO 


0264 ' 


..INPX: 





..(.+++ 





» 

? CNVNAM 




CONVERTS A NAME BLOCK 

TO A STRING 


.* • v , , .... , ■ 

5 NEEDS: 

? DEI -> TOP OF NAME BLOCK 
? $NASC11 -- ASCI I NAME FIELD 

* 

? RETURNS: 

■ " ft = TYPE STRING ( $STRADR) 

? BE --> TOP OF STRING WHICH CONTAINS THE ASCII NAME 
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? CALLSs 

; ALSTR -- ALLOCATE STRING 
? ENDSTR - CLEAN UP AND RETURN 


■J 


0264 *** 

E5 

CNVNAM: 

PUSH H 

5 SAVE REGS 

0265*- 

C5 


PUSH B 


0266 *- 

21 0009 


LX I H,$NASCII 5 OFFSET OF NAME 

0269 

19 


DAD D 

?HL~>NAME FIELD 

026A 

E5 


PUSH H 

5SAVE PTR TO NAME 

026B •" 

CD 0000"07 


CALL ALSTR 

‘ ? ALLOCATE STRING 

026E 

E3 


XTHL 

? ( SP > ~>8TR ING i HL-~>NAME 

026F " 

EDAO 

. .Cl: 

LDI 

* COPY A CHAR 

0271 •" 

E2 027F 


JPO ..ERR 

5 OUT O'"CORE 

0274 •- 

7E 


MOV AvM 

? GET NEXT CHAR 

0275"' 

B7 


ORA A 

?IF NULL, END OF NAME 

0276" 

2 OF 7 


JRNZ ..Cl 

* IF NOT, DO ANOTHER 

0278" 

El 


POP H 

5 HL~>TOP OF STRING 

0279*- 

CD 0000!13 

R 

CALL ENDSTR 

?GARBAGE COLLECT LEFTOVE 

027C - 

C1 

POP B 

5 RESTORE REGS 

027D-" 

El 


POP H 


027E"' 

C9 


RET 


027F *- 


.ERR: 

ERROR ER.CORC 


027F *** 

CD 0000:14 

+ 

CALL ERRPGM 


0282 

IB 

+ 

.BYTE ER.COR 




+:i 





; +WHAT 

SIS COMMAND—GET 

S TYPE IN VAR PASSED 



M.CMDIWHATSIS,..WHX,0,AFIX C W 3 , . .WHA,. . WHA 111 

0283" 

18 

+WHATSIS 

: .BYTE &CMDADR 

0284 •" 

04 


. BYTE (. . WHX--WHATSIS>716+1 

0.'285 •" 

00 

+ 

.BYTE 0 


0286"' 

C44C 

+ 

.WORD AFIXCW3 C < 

” W"-101Q) #1 6+FSTINT 1 

0288 •" 

0295*- 

+ 

.WORD ..WHA1 


028A"' 

0298*- 

+ 

.WORD ..WHA 


028C •" 

574841545.349+ 

.ASCIZ /WHATSIS 

/ 



+ 3 



0294 •" 

00 


. BYTE 0 

5 NO SWITCHES 

0295 " 

CD 0000s08 

. . WHAl's 

CALL ARG 


0298"' 

0 A1E 

..WHA: 

.BYTE $NAME,$REPEAT 

029A 

E5 


PUSH H 


029B 

FD6E01 


MOV L ?1< Y > 


029E '" 

FD6602 


MOV Hi2(Y) 


02 A1" 

7E 


MOV A,M 

? GET TYPE 

02A2 

FEOA 


CPI fNAMADR 

?IS NAME? 

02A4 •" 

CC 0000!2B 


CZ NXTVAL 

5 IF SO, GET VALUE 

02A7" 

5E 


MOV EiM 

$ GET TYPE 

02 A8" 

1600 


MV I D i 0 

; IN DE 

02AA"' 

FD7E03 


MOV A,3(Y> 

?SEE IF NAME PASSED 

02AD " 

B7 


ORA A 


02AE-" 

3E04 


MVI Ai$IVAL 

?USEFUL TAG 

02B0"' 

2004 


JRNZ ..CMD 

! YUP, USED AS CMD 
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02B2 -■ 

El 



POP H 

5 GET TERMY BACH 

02B3 

{“***-{ 

0000s 35 


■JMP RETNONE 

5 RETURN VALUE 

02B6-" 

CD 

0000:ID 

..CMD: 

CALL INC5IY 


02B9 •" 

CD 

0000:32 


CALL PSHOPND 

5 STICK IT 

02BC -■ 

CD 

0000:09 


CALL ASSIGN 

?STICK IT 

02 BF ■- 

El 



POP H 


02C0 
02C1 •' 

C9 


..WHXs 

RET 



;++++ 

5 ’ r 

? PRSTR 

5 PRINTS AN ASCII STRING ON THE TERMINAL 

it 

7 ... 

? NEEDSs 

? DE ~> TOP OF STRING HEADER 
? STRING DATA STARTS AS *SASCI I+DE, 

? IS NULL TERMINATED 

; DESTROYS DE 

0 

7 ' ' 

? CALLS: 

5 DUTCH - OUTPUT A CHAR 
; SFREE - ATTEMPTS TO FREE STRING 


02 C1 •- 


PRSTR: 




02C1 ** 

7 A 


MOV 

A, D 

?IF NULL, JUST 

02C2 **’ 

R2 


ADD 

E 

;RETURN 

02C3< 

C8 


RZ 



02C4-" 

E5 


PUSH 

H 

’SAVE REGS 

02C5 

21 000A 


LX I 

H,$SASCII 

5 GET STRING DATA 

02C8 *’ 

19 


DAD 

D 

5HL~>1ST CHAR 

02C9" 

3A C2E7 


LDA OUTOFF 

5 SUPPRESS FROM 

02CC'- 

B7 


ORA A 


5 INPUT ARGS 

02 CD 

200A 


.JRNZ . 

.EX 

?BEING THERE? 

02CF •" 

~j p 

. . PI: 

MOV 

A, M 

"END OF STRING? 

02D0 •" 

B7 


ORA 

A 

... 

02D1 •" 

2306 


JRZ 


^. . .. 

02D3 •" 

CD'. 0000s 2C 


CALL 

p-- EX ■ _ 

5 OUTPUT A CHAR 

02D6 

2*3 


INX 

H 

5HL->NEXT char 

02D7 x 

18F6 


JMPR 

..PI 

?LOOP AGAIN 

02D9 •" 

EB 

. .EX: 

XCHG 


? HL-OTOP OF STRING 

02D A •" 

CD 0000:39 


CALL 

SFREE 

5 FREE IT 

02DD •" 

El 


POP 

H 

?RESTORE PTR 

02DE-" 

C9 


RET 




• -M-++ 


0 ' , 

7 ■ ■ ■ ■ •. . - - .. • • • • . ■ ; ;■ .. , . 

; PRINT 

? COMMAND TO PRINT STRINGS ON THE TERMINAL 
5 A SPACE IS PRINTED AFTER EACH ARGUMENT AND A NEWLINE 
? IS PRINTED AT THE END OF THE LINE. UNLIKE PROMPT, 

5 PRINT WILL DISPLAY ITS ARGUMENTS REGARDLESS OF WHETHEf 

,* THE MACRO ARGUMENT LIST IS EXHAUSTED OR NOT 




PAGE 3.1 


TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
CM2 

CNVNAM CONVERT NAME TO STRING 


S SYNTAXs 

S PRINT <STRING>,<STRING>,... 

. —_ ^ 

M. CMD [PRINT,.. PEND, 0, PROMPT, . . PARG, . . PRNT 3 E 


02DF *** 

18 

+PRINT s 

. BYTE 

$CMDADR 

02E0 

02 

4* 

. BYTE 

(..PEND—PRINT)/16+1 

02E1 

00 

4* 

. BYTE 

0 

02E2 ' 

02FA' 

■4* 

.WORD 

PROMPT 

02E4-' 

02EF '■ 

4- 

. WORD 

..PRNT 

02E6 •" 

02F2 

4* 

a WuRD 

..PARG 

02E8 

5052494E5400+ 

.AbLIZ 

/PRINT/ 

02EE-" 
02EF "■ 

00 

CD 0000s08 

+ 3 

..PRNT s 

. BYTE 
CALL 

0 

ARG 

02F2-' 

08 IE 

..PARG: 

.BYTE 

$STRADR,^REPEAT 

02F4 •" 
02F7 
02F A 

CD 0322' 

C3 0000s27 

..PENDs 

CALL 
■JMP 
• ++++ 

PNXT SPRINT ARGUMENTS 

NLPNT SAND NEWLINE 


It 

* 

S PROMPT 

? COMMAND TO PROMPT THE USER WITH A MESSAGE (OR MESSAGES 
) ON 

5 THE TERMINAL. UNLIKE PRINT, PROMPT WILL BE SUPPRESSED 
IF THERE 

? ARE ANY ARGUMENTS LEFT IN THE MACRO'S ARGUMENT LIST WH 
ICH HAVE 

S NOT BEEN PICKED UP BY INPUT. A TRAILING NEWLINE IS NOT 
ADDED, 

; BUT SPACES ARE PUT BETWEEN THE STRING ARGUMENTS 

7 

5 SYNTAX " 

5 PROMPT <STRING>,<STRIN6>,... 


M.CMDIPROMPT,.„PEND,0,POWER,..PARG,..PROM3 E 


02F A ' 

18 

+PROMPT: 

. BYTE 

$CMDADR 



02FB' 

03 

+ 

. BYTE 

(..PEND-PROMPT)/16+1 


02 FC ' 

00 


. BYTE 

0 



02FD ' 

0000!2E 

4 . 

. WORD 

POWER 



02FF" 

030B' 

4* 

, WORE! 

..PROM 



0301' 

030E ' 

4 . 

. WORD 

..PARG 



0303' 

50524F 4D50.5 

44* 

+ 1 

.ASCI 2 

/PROMPT/ 



030A ' 

00 

. BYTE 

0 



030B' 

CD 0000 s 08 

n «PROM S 

CALL 

ARG 



030E ' 

08 IE 

„ »PARIS'S 

. BYTE 

$STRADR,fREPEAT 



0310' 

DD2A C25E 


LI XD 

MACTOP 

5IX->MACRO 

HEADER 

0314' 

DD7E00 


MOV 

A, 0 ( X ) 

5 CHECK IF 

$MIBBLK 

0317' 

FE22 


CPI 

$MIBBLK 

5 IS MIB? 


0319' 

2007 


JRNZ 

PNXT 

5 NO? PRINT 

ANYWAY 

03 IB' 

DDA61B 


ANA 

^MIBEND(X) 

5 ANY ARGS? 


03 IE' 

CC 0322' 


CZ 

PNXT 

5 NO? PRINT 


0321 ' 

C9 


RET 




0322' 


..PENDs- 
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0 

? 

; PNXT 

? PRINTS THE ARGUMENTS LIST OF STRINGS ON THE IY STACK 
5 FOR THE PRINT AND PROMPT COMMANDS 

5 NEEDS* 

5 IY ~> LIST OF STRING ARGUMENTS 

0 

7 ».. . 

? RETURNS* 

5 STRINGS PRINTED OUT ON THE TERMINAL WITH SPACES BETW 
EEN 

? THEM, IY, DE DESTROYED 

* 

r 

5 CALLS* 

5 OUTCH ~ OUTPUT A CHAR 
3 PRSTR - PRINT A STRING 
3 INC5IY ~ GET NEXT ARG 

7 

7 


0322 •- FD7EOO 
0325-' FE.00 

0327 C8 
0328-' FD5602 

032B" FD5E01 
032E"' CD 0000* ID 

0331 ' CD 02G1 •- 

0334-' 3E20 

0336 •" CD 0000*20 
0339 x 18E7 


PNXT* 


3 + 


MOV 

CPI 

RZ 

MOV 

MOV 

CALL 

CALL 

MV I 

JMPR 


A,E.TYP(Y) 
$TAF 


' D,E.HVAL(Y) 
E, E.LVAL(Y) 
INC5IY 
PRSTR 
A, 






PNXT 


5 ^RENAME COMMAND^ 
5 + 


5 CHECK TYPE 
5 NO MORE ARCS? 

5DE -> STRING TO PRINT 

3 GET NEXT ARG 
3 PRINT STRING 
SPRINT BLANK 

5 CONTINUE 


5 ++■++ 

5 

5 RENAME <OLD>,<NEW> 

5 RENAMES THE OLD VALUE WITH THE NEW NAME 
3 <OLD> AND <NEW> ARE BOTH ZGRASS NAMES 
3 <OLD> MUST BE A NAME WHICH IS ALREADY THERE, 

5 <NEW> MUST BE A NAME WHICH DOES NOT YET EXIST 
5 IF <OLD> IS A NON-DELETEABLE NAME, AN ERROR IS 
5 PRINTED. ONLY THE TYPE AND VALUE FIELDS ARE 
3 COPIED 


5 NEEDS* 

5 ON ARGUMENT STACK* 

5 TYPE ($NAME) 

ADDR OF OLD NAME 
3 TYPE ($NAME) 

3 ADDR OF NEW NAME 


CLEARVAL - CLEAR VALUE ?< TYPE 
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M.CMDCRENAME,. 

. RENX,0,RESTORE,.. 

RENA, . .RENIK 

033B-' 

18 

+RENAMES 

.BYTE 

$CMDADR 


033C •'* 

06 

4- 

, BYTE 

<..RENX-RENAME)/16+1 

033D •" 

00 

4* 

.BYTE 

0 


033E •" 

0000 s 34 

4* 

* WORD 

RESTORE 


0340 

035A •" 

-I- 

. WORD 

..REN1 


0342 x 

034C"' 

-h 

. WORD 

..RENA 


0344-' 

52454E4.14D45+ 

.ASCIZ 

/RENAME/ 




+i 




034B-' 

00 


. BYTE 

0 ? NO SWITCHES 

034C - -' 

6 3 

..RENAS 

. BYTE 

99 5 SPECIAL 

034D"' 

4E414D452C 

4E 

» A SC IZ 

/NAME,NEWNAME/ 


035A-' 

CD 0000s08 

. . REN1 s 

CALL 

ARG 

“ GET ARC'S 

035D-" 

OAOAOO 


. BYTE 

&NAME,$NAME,$TAF 

0360'' 

E5 


PUSH H 

1 5 SAVE TERMY 

0361 "' 

FD6E01 


MOV 

L, 1 < Y ) 

?HL->OLD NAME 

0364-' 

FD6602 


MOV 

H, 2 (Y) 


0367 *'■ 

E5 


PUSH H 


0368" 

DDE1 


POP X 


?IX”> OLD NAME 

036A" 

DDCB027E 


BIT 

$BNDL,$FLAGS(X) 

? NO-DELETE? 




NZERROR ER.REN 

5 NO? RENAME ERRORL 

036E **' 

2804 

4* 

•JRZ . . 

0002 


0370"' 

CD 0000s14 

4 

CALL ERRPGM 


0373 

2C 

4 

. BYTE 

ER.REN 


0374 •" 


„ 0002S 

1 



0374"' 

FD5E06 


MOV 

E, 6 ( Y) 

? DE~>NEW NAME 

0377 -' 

FD5607 


MOV 

D , 7 ( Y) 


037A" 

1A 


LDAX 

D 

S A=TYPE OF NEW 

037B-" 

FE02 


CPI 

$NULL 

? ALREADY THERE? 




NZERROR ER.NAE 

? NAME ALREADY EXISTS!! 

037D ■" 

2804 

4 

.JRZ . . 

0003 


037F •" 

CD 0000s14 

4 

CALL ERRPGM 


0382"' 

2D 

4 

. BYTE 

ER.NAE 


0383-' 


4*« « 0003 s 

1 



0383"' 

7E 


MOV 

A, M 

? A = TYPE OF OLD 

0384 "' 

12 


STAX 

D 

?SAVE IT 

0385-' 

E5 


PUSH 

H 

5SAVE NAME PTR 

0386 " 

21 0005 


LX I 

H,$NVALUE 

? HL=OFFSET OF VAL 

0389 "' 

19 


DAD 

D 

? HL-~>NEW VALUE 

038A"' 

DD7E05 


MOV 

A,$NVALUE(X) 

? MOVE IN NEW VAL 

o -3 y r. j * 

77 


MOV 

M, A 

? THE HARD WAY 

038E-* 



INX 

H 


038F *•* 

DD7E06 


MOV 

A,$NVALUE+i(X) 


0392 

77 


MOV 

M, A 


0393 *’* 

El 


POP 

H 

5HL~>TOP 

0394 “* 

CD 0000sOD 


CALL 

CLEARVAL 

5 CLEAR OLD VAL 

0397 

El 


POP 

H 


0398 x 

C9 


RET 




0399-' . . RENX s 

.END 
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+++++ SYMBOL TABLE +++++ 


AASN 

005F 


ABORT 

0000 s 04 

X 

ACOPY 

0000 505 

X 

ADDON 

0001 


ALLOC 

OOOO : 06 

X 

ALSTR 

0000!07 

X 

ARG 

0000:08 

X 

ARG8TK 

COCC 


ASSIGN 

00005 09 

X 

BACKGR 

C5CC 


BLANK 

0020 


BOTRAM 

cooo 


BOTTOM 

C4A9 


CARTYP 

0000!0A 

X 

CHARSL 

CSDD 


CLEAR 

0000:OB 

X 

CLEAR! 

0000sOC 

X 

CLEARS 

COCA 


CLEARV 

0000s OD 

X 

CMDSKO 

0000!OE 

X 

CNTRL 

oooc 


CNTRLC 

C5CD 


CNTRLO 

C5D9 


CNTRLU 

0015 


CNTRLZ 

C5E4 


CNVNAM 

0264 -* 


CORE 

00 EC ** 

I 

CPLARE 

Cl 1C 


CPLSIZ 

0140 


CR 

OOOD 


CSBLOK 

C68D 


CSFLAG 

C260 


CURCX 

C814 


CURCY 

C816 


CURREN 

C4A5 


Cm CO 

0011 


C. Cl 

0012 


C.CX 

OOOB 


C.CY 

OOOD 


C* DP 

0013 


C. ST 

0002 


C. X 

0003 


C. XF 

OOOF 


c. xs 

0007 


G.Y 

0005 


C. YF 

0010 


C.YS 

0009 


DDTON 

CSCE 


DECSIY 

0000'OF 

X 

DELBAG 

0000s10 

X 

DELETE 

0136" 

I 

DEVCLO 

C579 


DEVCL1 

C57B 


DEVCL2 

C57D 


DEVCL3 

C5'7F 


DEVCL4 

CSS 1 


DEVCL5 

0583 


DEVCL6 

C585 


DEVCL7 

C587 


DEVFB 

C5CB 


DEVHCB 

C58F 


DEVMO 

C58B 


DEVNM 

C5B7 


DEVNT 

C58D 


DEVTNA 

C5BB 


DEVTNB 

C5BF 


DEVTNC 

C5C3 


DEVVA 

C5BD 


DEWAR 

0579 


DEVVB 

CSC 1 


DEVVBL 

C591 


DEV VC 

C5C5 


DEVVD 

0509 


DEVVN 

C5B9 


DEWS 

C5C7 


DEVXCD 

C5B3 


DEVYCD 

C5B5 


DISPLA 

0000!u 

X 

DOLPLH 

C2E8 


DOLPPT 

C2EA 


DOMORE 

0000 s12 

X 

DUMBST 

C577 


EDBCNT 

C4AD 


EDCCNT 

C4A7 


EDLONG 

C812 


EDMODE 

C81C 


EDNAME 

C4A1 


EDNCX 

C80C 


EDNCY 

C80E 


EDNEWS 

C4A5 


EDOCX 

C808 


EDOCY 

C80A 


EDPN 

0806 


EDPO 

C804 


EDPTRC 

C4AB 


EDF'TRL 

C4A9 


EDSTR 

C81A 


ENDSTR 

0000!13 

X 

ERABIT 

0002 


ERRPGM 

0000s14 

X 

ER.ARA 

002F 


ER.ARG 

0034 


ER.ASN 

0015 


ER.BOX 

001A 


ER.CHN 

0002 


ER.CMD 

00 IF 


ER.CNV 

0016 


ER.COR 

001B 


ER.CTL 

0036 


ER.DEL 

0026 


ER.DIM 

0030 


ER.DIV 

0018 


ER. DP 

0037 


ER.DSK 

0019 


ER.EDT 

0035 


ER.FMT 

0038 


ER.FNF 

001C 


ER.FOR 

0028 


ER.IMP 

0003 


ER.LAB 

0025 


ER.MAC 

0022 


ER.NAE 

002D 


ER.NAM 

0029 


ER.NEG 

003A 


ER.NOT 

0023 


ER.NUL 

0039 


ER.NUM 

002B 


ER.NXT 

00 ID 


ER.OFL 

0017 


ER.OPN 

0014 


ER.OVE 

001E 


ER.PAR 

002A 


ER.REN 

002C 


ER.RET 

0024 


ER.SEP 

0021 


ER.SNP 

0031 


ER.SPC 

002E 


ER.STK 

0004 


ER. SW 

0032 


ER.TER 

0020 


ER.UFL 

0033 


ER.UNF 

0027 


EVAL 

0000!15 

X 

EXTDEL. 

002E 


E.HVAL 

0002 


E.LVAL 

0001 


E.SIZ 

0005 


E.TYP 

0000 


E. VAL 

0001 


FCNT.H 

C5D2 


FCNTI 

CUD 3 


FCNTJ 

C5D4 


FCNTK 

C5D5 


FCNTL 

C5D6 


FCNTV 

C5E0 


FCNTY 

C5E8 


FINDHA 

0000s16 

X 

FINDIA 

0000! .1.7 

X 

FIRST 

C4A3 


FLAGS 

C5CB 


FOREGR 

C5D0 


FRAGSI 

0400 


FREE 

0000s18 

X 

FREELS 

C5E5 


FSTDOL 

C48C 


FSTINT 

C2EC 


FWDPTR 

C5E7 


GETDSK 

0000:19 

X 

GETLPT 

0000s1A 

X 

GETOPN 

0000!IB 

X 

HCAREA 

C593 


HELP 

0000" 

I 

HEXHL 

0000 s 1C 

X 

INC5IY 

0000!ID 

X 

INCRO 

C5E9 


INPTTY 

0000!IE 

X 

INPUT 

0170-' , 

I 

I NT 

00005 IF 

X 

ISNAME 

0000 5 20 

X 

ISNL 

OOO0 5 21 

X 

JUNK 

C540 


KBCNLP 

0163-' 

I 

KBLOCK 

C5F1 


KEYFL.G 

C7FF 


KEYPTK 

C533 


KEYTRK 

C7F7 


KISNL 

0000:22 

X 

KLB 

0000:23 

X 

LF 

OOOA 


LISTON 

C5E2 


LN 

0000:24 

X 

MACSTU 

C536 


MACTOP 

C25E 


MAXFRG 

0040 


MNMX 

C5EB 


NAMADR 

0000525 

X 

NAMSET 

0000 s 26 

X 

NBL.KB 

0000 


NBLKM 

0001 


NEWBOT 

C810 


NL 

OOOA 


NLPNT 

0000!27 

X 

NSADDR 

C802 


NUMBUF 

C4A3 


NXTABC 

0000 s 28 

X 

NXTLNK 

0000 s29 

X 

NXTPTR 

0000 5 2A 

X 

NXTVAL 

0000 5 2B 

X 

OLDCHR 

C4A0 


OLDCUR 

C49F 


OLDKEY 

C49D 


OLDXY 

f;Kj{rp 


ONEBUF 

C729 


OPRL. 

0014 


OF'RSP 

C55B 


OPRSTK 

C54'7 


OF'RSZ 

C55D 


OUTCH 

00005 2C 

X 

OUTOFF 

C2E7 


PCNT 

C55E 
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PDECBC 

OOOO5 2D 

X 

PIXVAL 

C5ED 


PONOFF 

C5DA 


POWER 

0000:2E 

X 

PRINTH 

0000s30 

X 

PROMPT 

02F A •" 

I 

PSHOPN 

0000 s 32 

X 

PUTOPN 

0000: 33 

X 

RANSHT 

C55F 


RENAME 

033B- 

I 

RMDTMP 

C538 


RUBACK 

0005 


SCANB 

0000 :36 

X 

SCANLA 

0000!37 

X 

SCRWIN 

C7CD 


SFREE 

0000!39 

X 

STACK 

C0C8 


STAKTO 

COOO 


SUBSTU 

C534 


SWITCH 

0000:3B 

X 

TAPBUF 

C4B3 


TAPCON 

C4AF 


TEMPCH 

0000:3D 

X 

TEMPHD 

COCA 


TMPARG 

C7AD 


TOP 

C818 


TTYINT 

C2E3 


TTYPTR 

C2E1 


USREND 

C5F1 


V3PTR 

C573 


VIPLH 

C545 


VOICEO 

C563 


Z6IM2 

0001 


ZGREND 

C81D 


SADDRI 

0005 


$ADDRS 

0009 


$ANYVA 

FFFE 


$ARGPT 

0011 


$CALLE 

OOOD 


$CMDAD 

0018 


$DATAP 

0007 


$DOLDE 

0001 


$END 

001C 


$FADR 

OOOE 


$FORPT 

OOOB 


*FVAL 

0006 


$INPBU 

0018 


$INPPT 

0016 


fLENGT 

0001 


♦LINPT 

0005 


$MIBEN 

00 IB 


$NAMAD 

OOOA 


fNDEL 

0080 


UNLINK 

0003 


$REPEA 

00 IE 


$RVSTU 

0013 


$SLEN 

0006 


TSTRAD 

0008 


$TYPE 

0000 


TUSE 

0005 


.PROG. 

0399 

X 
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PNXT 

0322 x 


POINTE 

C4A7 


PRINT 

02 DF 

I 

PR.INTF 

0000:2F 

X 

PRS.TR 

02C1 


PRTYPA 

0000:31 

X 

RAMEND 

DFFF 


RAMSTR 

C900 


RESTOR 

0000:34 

X 

RETNON 

0000 s 35 

X 

RUBOIJT 

007F 


SAVESP 

C25C 


SCANNL 

0000:38 

X 

SCNEED 

0004 


SOPRSP 

G53D 


SOPRSZ 

C53F 


STREQK 

0000s3A 

X 

STRSIZ 

C800 


TAB 

0009 


TABPNT 

0000 s 3C 

X 

TAPPRO 

C4B1 


TBFEND 

f;53;~{ 


TEMPS 

C2E5 


TEMPUIM 

0000:3E 

X 

TTYBEG 

C261 


TTYEND 

r* f.t *i 

I'ZC. X 


TXTWIN 

C7E2 


UARTFL 

C49C 


VDCHAR 

C49E 


VDNLF 

C5CF 


WHATSI 

0283 -■ 

I 

WRMODE 



fAADR 

0010 


$ADDRF 

0007 


$ANY 

001A 


$ANYNA 

FFFC 


$BGPTR 

OOOF 


$BNDL 

0007 


fCPLBL 

002A 


$CSBL„0 

0028 


f»DOLOO 

0002 


$DVAL 

0000 


SFLAGS 

0002 


$FORBL 

0024 


TGOSUB 

001A 


$1 ADR 

OOOC 


$ IVAL 

0004 


TKEYBL 

0026 


$LOCPT 

0009 


fMIBBL 

0022 


$NAME 

OOOA 


$NASCI 

0009 


$NULL 

0002 


$NVALU 

0005 


$8AME 

0020 


$SASCI 

OOOA 


$STRPT 

0003 


$TAF 

0000 


. BL.NK. 

0000:03 

X 

.DATA. 

0000* 

X 
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NAM 


0 CP/M DISK ASSEMBLER VERSION 2.21 
- ZGRASS NAME ROUTINES 


.INSERT AsS.ASM 
©.REMARK / 


© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 


a 

* * a 
aaa 

aaaaaaa 

a 

a 

a 

a 

a 

aaaaaaa 

"WHEN YOU CARE ENOUGH TO PROGRAM 
THE VERY BEST" 


© 

© ZGRASS V2.OOOOOOOO 

©BY JAY FENTON, NOLA DONATO, AND TOM DEFANTI 

© (C) 1978 

© 

©/ 

.INSERT A:ZRAM.ASM 
.LINK 
. PREL 

.IDENT NAM 
.EXTERN AFREE 
.EXTERN ALLOC 
.EXTERN BALLY 
.EXTERN CARTYA 
.EXTERN CARTYP 
.EXTERN CHKAZ 
.EXTERN CLEARIT 
.EXTERN ERRPGM 
.EXTERN EVAL 


.EXTERN FREE 
.EXTERN GETLF'T 
.EXTERN INC5IY 
.EXTERN INPTTY 
.EXTERN KISNL 
.EXTERN NLPNT 
.EXTERN NXTABC 
.EXTERN NXTLNK 
.EXTERN NXTVAL 

.extern Dutch 


.EXTERN PRINTA 
.EXTERN PRINTFF 
.EXTERN PRINTHL 
.EXTERN PUTOF'ND 
.EXTERN SFREE 
. EXTERN TABF’NT 
.EXTERN TEMPCHN 
.EXTERN TEMPUNCH 
.INTERN ARC 
.INTERN CLEARVAL 
.INTERN DELBAG 
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IMAM 

- ZGRASS NAME 

ROUTINES 




.INTERN FINDHASH 



.INTERN ISNAME 
.INTERN NAMADR 
.INTERN NAMBL..D 
.INTERN NAMSET 
.INTERN PRTYPA 
.INTERN PSCAN 




!FINDHASH—GETS ADDR OF 

A-Z VAR INTO HL , 



!IN A HAS CHARACTER 

IN IT 



5 OUT HL-OFWA OF HASH 

VARIABLE (A-Z) 

0000“ 

C5 

FINDHASH: PUSH B 


0001 ■■■ 

2600 

MVI H, 0 


0003“ 

FE24 

CPI 

; is $? 

0005 *“ 

2005 

•JRNZ „ . NDOL 

5 NO—ALPHA 

0007 •“ 

21 L-43L 

LX I H i FSTDOL 

5FWA OF THIS GUY 

000 ft •" 

1 H 

JMF’R .'.FI NO 

?AND EXIT 

odoc*“ 

D641 

..NDOL 5 SUI '"A"' 

;GET OFFSET FROM 

5CHAR IN A 

000E •" 

6F 

MOV Li A 

? PUT RMNDR IN L 

OOOF “ 

2:9 

DAD H 

? MUL BY 16 

0010" 

29 

DAD H 


0011 

29 

DAD H 


0012'" 

29 

DAD H 


0013'" 

01 C2EC 

LX I Bj FSTINT 

? GET ADDR OF FIRST ONE 

0016"' 

09 

DAD B 

* AND ADD IT IN 

0017 "' 

Cl 

..FINOs POP B 


0018"' 

C9 

RET 

> 




5 *DELBAG—DELETES STUFF 

n 

BY TYPE* 



5 IN: FWA OF NAMEBLOCK 

IN HL 



"OUTs HL SAME, THING & 

: VALUE DELETED 



sNO ACTION IF HL=0 OR HL 

II 

-•> 0 TYPE 

0019 

7C 

DELBAGs MOV A,H 


001ft' 

B5 

ORA L 


001B 

C8 

RZ 

5 IGNORE IF HL~0 

001C 

ES 

PUSH H 


00 ID" 

C5 : 

PUSH B 


00 IE"' 

E5 

PUSH H 

5 PASS TO ROUTINE VIA XTHL 

00 IF'" 

4E , 

MOV C,M 

; TYPE 

0020 '" 

0600 

MVI B i 0 

? COMPUTE DI SF'ATCH 

0022 

21 002A"' 

LXI Hi..DTAB 

?ADDRESS 

0025' 

CD 0000s1 

3 CALL NXTABC 

5 LIKE THIS 

0028"' 

E3- 

XTHL 

? SWITCH '"EM 

0029 

C9 

RET 

;AND GOTO IT 

002ft 

0063 •" 

..DTAB: .WORD .„ NOTYET 

5 SET CARRY HERE 

002C"' 

006E '" 

.WORD DEXIT 

;$NULL 

002E"' 

0063'" 

» WORD . . NOGO 

;fIVAL 

0030" 

0063" 

. WORD .» NOGO 

?$FVAL 

0032"' 

005B" 

.WORD ..STR 

5 &STRADR 
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PAG 


0034 

0044 ■" 


.WORD ..NAME 

5 $NAMADR 

0036'" 

004E *“ 


.WORD ..INT 

5$IADR 

0038 " 

004E "■ 


.WORD ..INT 

3 $FADR 

003A 

0053 •' 


.WORD ,.ARA 

5 $AADR 

003C;“ 

0063" 


. WORD . .. NOTYET 

5$CPLADR 

003E 

0063 " 


.WORD ..NOTYET 

; $PIX 

0040 •" 

0063 “ 


.WORD ..NOTYET 

5$GROUP 

0042" 

0063 " 


.WORD ..NOGO 

5 4CMDADR 

0044 

E5 

.« NAME! 

PUSH H 


0045“ 

CD 0000!15 


CALL NXTVAL 


0048" 

2803 


JRZ ..DONT 


004A - " 

CD 0019" 


CALL DELBAG 

3 DELETE VALUE 

004D •" 

El 

..DONT: 

POP H 


004E" 

CD 0071" 

..INT! 

CALL CLEARVAL 


0051 *“ 

181B 


JMPR DEXIT 


0053 *“ 

CD 0067" 

..ARA: 

CALL DECUSE 


0056 *“ 

CD 0000 s 04 


CALL AFREE 


0059 " 

1813 


JMPR DEXIT 


005B 

CD 0067" 

..STR: 

CALL DECUSE 

5 DEGR USE COUNT 

005E *“ 

CD 0000 5 1B 


CALL SFREE 


0061" 

180 B 


JMPR DEXIT 


0063"' 


. . NOGO! 



0063 *“ 


,.NOTYET! ERROR ER 

.IMP L". 

0063“ 

CD 0000!OB 

+ 

CALL ERRPGM 


0066** 

03 

4* 

.BYTE ER.IMP 




+ T 



0067 *“ 

E5 

DECUSE! 

PUSH H ?DECREMENT USE COUNT 

0068 “ 

C5 


PUSH B 3 ASSUMES 

USECOUNT #0 

0069**' 

01 0005 


LXI B,$USE 


0060 *“ 

09 


DAD B 


006D ** 

35 


DCR M 


006E “ 

Cl 

DEXIT: 

POP B 


006F *“ 

El 


POP H 


0070“ 

C9 


RET 




5 -H-CLEARVAL—CLEARS 4 BYTES OF VALUE : 



5 IN! 

HL~>FWA OF NAME, 

IADR OR FADR 



3 OUT: 

HL SAME, FIRST BYTE=$NULL AND $1 



» 

7 

BYTES (4) ARE CLEAR 

0071 *“ 

E5 

CLEARVAL: PUSH H 


0072“ 

C5 


PUSH B 


0073“ 

3602 


MVI M,$NULL 

5 SET $NULL IN 

0075“ 

01 0005 


LXI B,$NVALUE 

3 POINT TO WHERE 

0078“ 

09 


DAD B 


0079 x . 

01 0004 


LX I B,4 

5 CLEAR 4 BYTES 

0070“ 

CD 0000SOA 


CALL CLEARIT 

5 GUESS WHAT 

007F* 1 ' 

18ED 


JMPR DEXIT 

5 BYE 


SETS $NULL 
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S *• I SNA ME—• SEES IF 

0081 •' 

7P 

I8NAME5 MOV A,M 

0082 *“ 

FEOA 

CPI f*NAMADR 

0084 ■" 

C8 

RZ 

0085“ 

FEOC 

CPI $IADR 

0087 x 

C8 

RZ 

0088 •“ 

FEOE 

CPI $FADR 

008A *“ 

C9 

RET 



? -H-PSCAN-—-SCANS OVER 

00 SB ** 

D5 

F'SCAN; PUSH D 

008C *“ 

1628 

MV I D, •-(-• 

008E“ 

1E29 

MVI £,'•)••• 

0090“ 

o o 

INX H 

0091 

CD 0000 :06 

CALL BALLY 

0094 •“ 

m 

POP D 

0095 •“ 

09 

RET 


“POINT PAST ■'•<•" 


*NAMSET—POINTS HL AT END OF NAME, DE AT BEGINNING* 


0096 
0097 ■' 
0098 •" 
009B" 
009C 
009D •" 


E5 

D1 

CD 00005 Oi- 
CS 

18F9 




v ityi A** 


!IN HL-ONAME IN ASCII IN COMMAND, ETC 

OUT DE~>NAME, HL-~>TERM I NAT OR OF NAME 





1 NAMADR Of T-~' NAMF ml HU I.MU' ?7T 


IN 



OUT 



DE~>FIRST CHAR OF NAME 
HL-->TERM INATOR AFTER NAME 

(SETUP BY NAMSET, PROBABLY! 

A=0 TO SEARCH SYSTEM NAMES, 

A=1 TO HASH OFF FIRST LETTER 
HL->DELIM FOLLOWING NAME INCL SWITCH IF CMD 
DE-->FWA OF NAME BLOCK IF Z SET 
OR SAME AS ENTRY IF NAME NOT FOUND, 

BUT Z CLEAR 

>P0INTER TO CODE TO EXEC IF CMD 
OR AT m VALUE BYTES IN NAMBLOCK 
OR, IF NOT FOUND (Z CLEAR CASE), 
BC->LAST NAME IN HASH TABLE 
CHAIN (THE ONE WITH 0 NLINK.FIELD) 
BC+2~>P0INTER TO ARG LIST OR 0 FOR HELP 
IF STUPID NAME (STARTS WITH DELIM 
OR NUMBER), CARRY SET, OTHERWISE 
CARRY CLEAR. 


?ALGORITHM: 


COMPARE (DEM- WITH CURRENT NAME. 
WHEN MATCH FAILS IF DE=HL, 
THEN GOT A MATCH 
(IT WAS THE DELIMS THAT 
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21 


RAGE 


009F 
00 A1 -■ 
00A3 •" 
00A4 
00A5 
00A7 •- 
00A8 
00A9-" 


FAILED TO MATCH) 

OTHERWISE. NO MATCH, CHAIN ON 
ONE TOUGH CASE—IF HL.-7NULL, 

IT WILL MATCH NULL AT END 
OF NAME, SO WE COUNT HL~->NULL 
AS A MATCH 
UNLESS, OF COURSE, 

HL=DE IN THE BEGINNING (ERROR) 


DDES 

FDE5 

E5 

D5 

DDE.1. 

4F 
1A 

CD 0000s07 


NAMADR: 



PUSH X 
PUSH Y 

P- 

PUSH 
POP X 
MOV C,A 
LDAX D 
CALL CARTYA 




^ ft /tyyUnX 





?SAVE IF NO FIND 
5 I TX 

? SAVE FOR BELOW 
;GET FIRST CHAR 
5 CHECK IT 


OOAC •" 

385D 


•JRC ..EXIT 

* NO PLACE FOR NUMBER 

OGAE * 

37 

..DUMBs 

STC 

5 SET IN CASE Z SET 

GOAF** 

285A 


JRZ ..EXIT 

5 NO DELIMS HERE EITHER 

OOB1 " 

13 


INX D 

;CHECK SECOND 

00B2-" 

1A 


LDAX D 

H 

7 « t» » 

00B3 

CD 0000“07 


CALL CARTYA 

?IF DELIM, IS A-Z 

00B6*“ 

IB 


DC X D 

;BACKUP 

00B7 ** 

F5 


PUSH PSW 

? SAVE CC- S & A 

00B8-" 

1A 


LDAX D 

5GET FIRST CHAR AGAIN 

00 BY •" 

CD 0000 ■' 


CALL FINDHASH 

■ GET FWA OF TABLE 

ODBC **’ 

79 


MOV A,C 

50/1 FROM ENTRY& "MOV 

OOBD •" 

B7 


ORA A 

5 IS SYSNAMES (=0)? 

OOBE 

2806 


JRZ ..SYSN 

5 YUP 

OOCO •" 

FI 


POP PSW 

5 CHECK CC- S FROM CHKAZ 

OOC1 •" 

200A 


JRNZ ..NAML 

5 IS AT LEAST 2 CHARS 

OOCS'V 

EB 


XCHG 

5 DE HAS POINTER NOW 

ooe4 y 

1845 


JMPR ..EXIT 


0QC6 •" 

FI 

..SYSNs 

POP PSW 

5 GET RID OF PUSHEE 

00C7 ■' 

01 OOOE 


LXI B,14 

5 POINT TO SYSNAMES 

OOC A •" 

CD 0000S13 


CALL NXTABC 


OOCD-" 

E5 

..NAML s 

PUSH H 

5 SAVE PTR IN IY 

OOCE •" 

FDE1 


POP Y 


OODO •" 

01 0009 


LX I B,$NASC11 

5 POINT AT ASCII 

0C)D3 •" 

09 


DAD B 


0004 r 

1A 

..NARs 

LDAX D 

5 LOAD CHAR INTO A 

00 DS" 

BE 


CMP M 

? SAME AS (HD? 

00 D 6 

2023 


JRNZ ..NAG 

5 NOPE 

0008 •” 

AF 


XRA A 

5 IS (HL)=0 

00D9 

BE 


CMP M 

5 ??? 

OODA-' 

280C 


JRZ ..NAM 

; YUP—MATCH 

OODC 

■ r**» 


I N X H 

" 5 BUMF ~ ' ' 

OODD-" 

13 


INX D 

5 BUMP 

OODE •" 

C1 


POP B 

5 TERMINATOR ADDR IN BC 

OODF 

C5 


PUSH B 

5 AND PUT BACK 

OOEO •" 

79 


MOV A,C 

5 CHECK FOR =S 

OOE1 ■" 

BB 


CMP E 

.. “ 7- ■ 

O0E2-‘ 

20 FO 


JRNZ ..NAR 

5 LOOK MORE 

00E4 ■" 

78 


MOV A,B 



C, A" 
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.DOES' 

BA 




CMP D 


00E6 ' 

20EC 




■JRNZ . . NAR 


ODES' 

FDE5 


It 

.NAM 5 

PUSH Y 


OOEA " 

D 1 




POP D 

?Z=1, DE—>FWA NAMEBLOCK 

OQEB" 

62 




MOV H,D 

? COPY TO HL 

OOEC" 

6 B 




MOV L»E 


OOED" 

01 0005 




LXI B,$NVALUE 

5 WANT BC->NVALUE 

OOFO ■" 

09 




DAD B 

f ? FOR EVERYBODY 

OOF 1 

44 




MOV B,H 

OOF 2 "' 

4D 




MOV Ci L 

L-HClAXytr^^ 

OOFS •" 

1 A 




"GET TYPE OF NAME 

OOF 4 ' 

FE1S 




CPp^CMDADR 

5 IF CMD, CHECK SWITCH . 

OOF 6 ' 

2819 




Uttfi . rsJHT 

" DO IT 

OOFS*’ 

AF 


* 11 

u L'OUT« 

OCR A A' 

“CLEAR THAT CARR^/X C p ' " 

' —• * c*i,Q v 

00F9 "■ 
OOFB ■" 

1810 

FDE5 



. NAGS 

JMPR ..EXIT 
PUSH Y 

OOFD 

El 




POP H 


OOFE 

DDES 




PUSH X 


0100 "' 

Di 




POP D 

?RESTORE DE. L 

0101 ■" 

CD 00005 

14 



CALL NXTLNK 

5 GET THAT LINK 

0104" 

20 C 7 




•JRNZ . . NAML 

5 IF NON-ZERO 

0106 

FDE5 




PUSH Y 

5 GET LAST ONE IN BC 

0108;" 

Cl 




POP B 

5 LIKE THAT 

0109" 

F 6 FF 




ORI ~1 —' 

? CLEAR Z 7 

01 OB"' 

El 



.EXITS 

POP H 

5 GET ORIG TERMY BACK 

01 DC' 

FDE1 


„ 

.EX is 

POP Y 


0.1 OE" 

DDE 1 




POP X 


0110 "' 

C9 




RET 


0111 "' 

El 



.SWITs 

POP H 

"GET ORIG TERMY BACK , ; 

011 2 " 

p*Ft 




PUSH H 

5 FOR ..GOUT 

0113" 

7E 




MOV AiM 

5 CHECK DELIM FOR SWITCH 

0114" 

FE2E 




CPI EXTDEL 


0116" 

20E0 




JRNZ . .COUli 


0118" 

El 




POP H 

?STACK MANAGEMENT 

0119" 

23 




INX H 

?POINT PAST LOAV & . 

on a" 

CD OOOOs 

08 



CALL CARTYP 

; ALPHANS oWLV 
; DUMMY! Tjgtfc .. 

5 JUMP OVER 4BYTES I \WW 

01 ID" 
01 IF" 

30 9 F 

03 




JRZ ..DUMB 

INX B * 

0120 "' 
0121 "' 
0122 " 

03 

03 

03 




INX B 

I NX B 

INX B 

fHl/ C J**' ) 

0123"' 

OA 



.SCMR 5 

LDAX B 

' SCAN TO Z OF |>Ar MfJC 

5ASCIZ NAME 'J r \ m 

,0124" 

03 




INX B 

O'i'25" 

B7 




ORA A 


0126"' 

20FB 




JRNZ ..SCMR 

5 PAST NULL NOW 

0128 "' 

OA 




LDAX B 

5 DOUBLE NULL? 

0129" 

B7 




ORA A 


012 A"' 



« 

.BAD 5 

ZERROR ER.SW 

?SWITCH ERRORC 

012A"' 

2004 


+ 


JRNZ ..0001 


012 C"' 

CD OOOOs 

OB 

Hh 


CALL ERRPGM 


012 F ■" 

■ 7 - 


4 * 


.BYTE ER.SW 


0130" 




. 0001 5 

3 


01 30 "' 

p Kj 




PUSH B 

"SAVE B 

0131" 

E5 




RUSH H 

“SAVE PTR TO FIRST CHAR 

0132"' 

03 




INX B. 

5 OF TYPED SWITCH 
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0133 

03 

I NX B 

5 NOW ADVANCE PAST 

0134 

03 

INX B 

? ACQDE AND 

0135 

03 ' 

INX B 

"ARGLI8T PTRS 

0136 

' 7E 

..SWICs MOV A,M 

5 GET USER CHARACTER 

0137 

B7 

ORA A 

SIS NULL? 

0138 

- 2810 

JRZ ..OKSW 

5 MATCH! 

013 A 

0 A 

LDAX B 

jGET SWITCH CHAR 

013B 

BE 

CMP M 

5 SEE IF MATCHES 

013C 

23 

INX H 

5 BUMP ANYWAY 

013D 

03 

INX B 

; B TOO 

013E 

" . 28F6 

•JRZ ..SWIG 

5 MATCHES! 

0140 

2 B 

DCX H 

?POINT BACK AT DELIM 

0141 

'■ CD 0000 s 0 

8 CALL CARTYP 

5 CHECK IF USER AT DELIM 

0144 

'■ 2804 

JRZ ..OKSW 

;ONLY WAY TO GET OUT 

0146 

E1 

POP H 

?RESTORE PTR TO TYPED.SW 

0.1.47 

FI : 

POP PSW 

", TRASH OLD BC, USE NEW < 

0148 

18D9 

JMPR ..SCMR 

5 SCAN MORE 

014 A 

FI 

..OKSWs POP PSW 

5 TRASH OLD HL 

014B 

Cl 

POP B 

S GET —>T0 CODES?ARGLI ST 

014C 

AF 

XRA A 

;SUCCESS 

014D 

18BD 

JMPR .,E X1 

? BYE ! 



5 &NAMBLD—BUILDS A NAME 

: NODE* 



5 INs DE8<HL8<BC SETUP BY NAMADR 



"OUT HL SAME 




5 DE~->FWA OF NAMEBLOCK , 



; BC CLOBBERED 




?NAMEBLOCK LOOKS LIKEs 

TYPE 



m 

T 

LENGTH - 



* ■ . i. 

* 

FLAGS 



n 

LINK TO NEXT NAME( 2 ) 



« 

LINK TO VALUE(2) OR? 



INTEGER VALUE 




n 

7 

FLOAT VALUE OR ZER0<2> 




ASCIZ NAME 



“GAME PLANS 1. FILL 

IN TYPE AND FLAGS 



? 2. CHAIN 

1 IN $ NIL INK 



5 3. COPY 

IN ASCIZ NAME 

014F 

- " DDES 

NAMBLDs PUSH X 


0151 

E5 

PUSH H 


0152 

" C5 

PUSH B 


0153 

A7 

ANA A 

5 CLEAR CARRY 

0154 

ED 52 

DSBC D 

5 GET LENGTH 

0156 

E5 

PUSH H 

? IN HL 

0157 

7D 

MOV A,L 

■ GET LENGTH/16 

' 0158 

C609 

ADI fNASCII 

5 ADD IN HEADER LENGTH 

015 A 

E6F0 

ANI OFOH 

5 CLEAR LOW BITS 

015C 

IF 

RAR 


015D 

IF 

RAR 


015E 

IF 

RAR 


015F 

IF 


;DIV BY 16 
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0160"' 

CD 0000:05 

CALL ALLOC 

5 WANT A BLOX 

01 S3 ■" 

E5 

PUSH H 

5 HL HAS FWA OF BLOCK 

0164-' 

3602 

MVI M,$NULL 

5 VALUELESS NAME 

0166." 

23 

INX H 

3 POINT TO FLAGS 

0167-' 

23 

INX H 

5 AND CLEAR FROM THERE ON 

0168 

01 0007 

LXI B,$NASCI1-2 


016B" 

CD 0000 s 0A 

CALL CLEARIT 

5 ZEROES 

016E-" 

El 

POP H 

3 GET FWA FROM ALLOC ABOVE 

016F ■" 

Cl 

POP B 

5 GET LENGTH FROM DSBC ABOVE 

0170" 

DDE! 

POP x 

5 GET BC FROM ENTRY (LAST 

5 IN HASH TABLE ADDR) 

0172-' 

DD7503 

MOV $NLINK( X), L 

5 POINT HASH ENTRY 

0175 •** 

DD7404 

MOV $NLINK+1(X), 

H 3 TO US 

0178" 

E5 

PUSH H 

5 SAVE FWA AGAIN 

0179" 

C5 

PUSH B 

3 SAVE LENGTH 

017 A " 

01 0009 

LXI B,$NASCII 

3 POINT AT ASCIZ LOC 

017D" 

09 

DAD B 

3 HL—>WHERE TO STICK 

017E" 

Cl 

POP B 

5 RESTORE B 

017F" 

EB 

XCHG 

5 DE HAS WHERE FROM 

0180 " 

EDBO 

L.DIR 

3 DO IT 

0182" 

AF 

XRA A 


0183" 

12 

STAX D 

5 STUFF A NULL 

0184 " 

D1 

POP D 

5FWA IN DE 

0185" 

El 

..BYE: POP H 


0186" 

DDE 1 

POP X 


0188 " 

C9 

RET 

3 BYE 


5 ARG 

tt 

1 

5 IN! HL->TERMINATOR (BLANK, COMMA) 

3 CALL ARU 

5 .BYTE ARG1,ARG2,...,$TAF 

5 

5 OUT: IY->TYPE 

5 STUFF 

5 TYPE 

3 STUFF 

. 

3 0 

5 AND HL—>TERMINATOR 

5 (BLANK, COMMA, NL OR NULL) 


5 NARRATIVE BY .JAY FENTON: 

5 ZGRASS' ARGUMENT SCANNER 

5 THIS ROUTINE PREPROCESSES; THE ARGUMENTS TO A 
5 COMMAND AND LEAVES THEM ON THE VALUE STACK 
5(IY STACK). A LIST SPECIFYING HOW TO 
3 SCAN THE ARGUMENTS FOLLOWS INLINE AFTER THE 
5 CALL 

3 ON ENTRY, HL POINTS AT THE DELIMITER FOLLOWING 
3 THE COMMAND NAME 

5 ON EXIT, HL POINTS BEYOND THE LAST ARG SCANNED 





TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
NAM ~ ZORASS NAME ROUTINES 
ARG—PARSES COMMAND ARGUMENTS 


5 AND IY POINTS AT THE FIRST ENTRY ON THE 
;VALUE STACK. 

* ENTRIES ON THE STACK CONSIST OF A TYPE BYTE 
?FOLLOWED BY 4 BYTES OF VALUE 


;REGISTER USE: HL-STRING POINTER 




IS 

? 

IX“LIST 

POINTER 



n 

? 

IY=VALUE 

: POINTER 

0189 

DDES 

ARG: 

XTIX 5SAVE IX 

AND USE TO FETCH ARG 

018B " 

CD 0000:OF 

. . ARGis 

CALL INC5IY 


018E" 

FDE5 


PUSH Y 

;SAVE FOR LATER 

0190' 

CD 0000:11 

. .ARG2: 

CALL KIbNL 

JEOL ALREADY? 

0193 " 

«taM iw*« 


JRZ ..EMTY 

5 YUP 

0195"' 

FE29 


CPI •")"' 

? CLOSE PAREN? 

0197"' 

282A 


JRZ ..EMTY 

5 OK 

0199"' 

FE2C 


CPI 

? COMMA? 

019B"' 

2001 


JRNZ ..ARG3 

;MUSTA BEEN SPACE 

019D" 



INX H 

;SKIP COMMA 

019E"' 

DD7E00 

. . ARG3: 

MOV A,OCX) 

? GET TYPE WANTED 

01 A 1 " 

FEOO 


CPI $TAF 

!THAT"'S all? 

01 A3"' 

200B 


JRNZ ..ARG4 

;nah 

01 A5 "' 

FD360000 

..AOUT: 

MV I 0 (Y > •> 0 

?TERMINATE LIST 

01A9" 

FDE1 


POP Y 

;WIND DOWN 

01AB"' 

DD23 


INX X 

5 JUMP OVER $TAF,ETC. 

01 AD" 

DDES 


XTIX 

5 RSTORE X 

01AF "' 

C9 


RET 


01 BO "' 

FE1E 

..ARG4: 

CPI ^REPEAT 

? MORE? 

01 B 2 "' 

2005 


JRNZ ..ARG5 

? NO 7 NEW TYPE 

01B4" 

DD2B 


OCX X 

?BACKUP 

01B6"' 

DD7EOO 


MOV A,OCX) 

?GET PREVIOUS TYPE 

01B9 "' 

CD 0000:OC 

..ARG5: 

CALL EVAL 

5 DO FETCH 

OlBC"' 

CD 0000 :OF 


CALL INC5IY 

5 SPACE TO NEXT 

01 BF "' 

DD23 


INX X 


01 C 1 •" 

18CD 


JMPR .„ARG2 

? DO IT AGAIN 

01 C3 "' 

DD7E00 

. . EMTY: 

MOV A,OCX) 

;SEE IF $TAF 

01 C 6 "' 

FEOO 


CPI :$TAF 

5 IF SO, EXIT 

01 C 8 '" 

28DB 


JRZ ..AOUT 


01C A "' 

FE1E 


CPI ^REPEAT 

•if REPEAT, DITTO 

01CC "' 

28D7 


JRZ ..AOUT 


0 ICE"' 

DD23 


INX X 

?TRY 1 PAST 

01 DO"' 

DD7E00 


MOV A,OCX) 

” SEE IF 1 PAST IS 

01D3'" 

FE1E 


CPI $ REPEAT 

? IS REPEAT 

01D5"' 

28CE 


JRZ ..AOUT 

• ALSO OK (NO ARGS CAS! 




ERROR ER.UNFC 


01D7"' 

CD 0000 :OB 

+ 

CALL ERRPGM 


01 DA"' 

27 

4 * 

.BYTE ER.UNF 




+:i 



01 DB "' 

FD7E00 

PRTYPE: 

MOV A , 0 C Y > 

5 GET TYPE 


5 + 

? PRTYF'A - PRINTS TYPE AS PASSED IN A 


PAGE 9 
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01DE •- 

C5 

PRTYPA! 

PUSH B 


01DF-" 

E5 


PUSH H 

5 PRINT TYPE WANT 

01EO 

4F 


MOV C ■, A 

;MAKE BC OFFSET 

01E1 •" 

0600 


MVI B,0 


01E3"' 

21 01FA" 


LXI H,..PTAB 

"GET BASE ' 

01E6" 

CD 0000"13 


CALL NXTABC 

? GET ADDRESS 

01E9"' 

CD 0000!19 


CALL PRINTHL 

5 PRINT IT 

01 EC-' 

BE 


CMP M 

5 IS DOUBLE NULL? 

01 ED **’ 

2008 


•JRNZ . . DONE 

? NAH 

01EF" 

CD 0000!18 


CALL PRINTFF 


01F2-' 

4E414D4500 


.ASCIZ /NAME/ 


01F7 

El 

..DONE: 

POP H 

? POP 

01F 8 - 

Cl 


POP B 


01F9-" 

C9 


RET 


01F A •" 

02 OC " 

..PTABs 

.WORD ..LOST 

“ $TAF 

01FC-" 

022C 


.WORD ..NAME 

5 fNULL 

01FE-" 

0217" 


„WORD ..NUM 

;% IVAL 

0200-' 

0217" 


.WORD ..NUM 

? *FVAL 

0202 

0210" 


.WORD ..STR 

5 $STRADR 

0204 

022C"' 


.WORD ..NAME 

? 4NAMADR 

0206 •" 

0225 •" 


.WORD ..NUMN 

? $1ADR 

0208 •" 

0225"' 


.WORD ..NUMN 

?$FADR 

020A ■" 

02 IE" 


.WORD ..ARRN 

5 $AADR 


020C "' 

3F3F3F00 

.«LUST“ 

.ASCIZ 

/???/ 

0210 •" 

535452494E 4 7 

..STR: 

.ASCIZ 

/STRING/ 

0217 "' 

4 E554D424552 

..NUM: 

.ASCIZ 

/NUMBER/ 

021E 

415252415900 

..ARRN: 

.AllIZ 

/ARRAY/ 

0224 •" 

00 


.BYTE 0 

I • 

0225" 

4 E554D424552 

..NUMN: 

.ASCIZ 

/NUMBER/ 

022C"' 

0000 

..NAME: 

.BYTE 0 

'»0 

022E"' 


NAMEND: 

.END 










21 
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AASN 

005F 


ADDON 

0001 


ARG 

0189 •" 

I 

ARGSTK 

cocc 


BLANK 

0020 


BOTRAM 

cooo 


CARTYP 

0000 s 08 

X 

CHARSL 

C5DD 


CLEARS 

COCA 


CLEARV 

0071" 

I 

CNTRLO 

C5D9 


CMTRLU 

0015 


CPLSIZ 

0140 


CR 

OOOD 


CURCX 

C814 


CURCY 

C316 


C.Cl 

0012 


C.CX 

OOOB 


C.ST 

0002 


C. X 

0003 


C. Y 

0005 


C.YF 

0010 


DECUSE 

0067- 


DELBAG 

0019 •" 

I 

DEVCL2 

C57D 


DEVCL3 

C57F 


DEVGL6 

C535 


DEVCL7 

C587 


DEVMO 

C58B 


DEVNM 

C5B7 


DEVTNB 

C5BF 


DEVTNG 

C5C3 


DEVVB 

C5C1 


DEVVBL 

C591 


DEVVN 

C5B9 


DEWS 

C5C7 


DEXIT 

006E"' 


DOLPLH 

L* E" 


EDBCNT 

L-4AEI 


EDCCNT 

C4A7 


EDNAME 

C4A1 


EDNCX 

C80C 


EDOCX 

C808 


EDOCY 

C80A 


EDPTRC 

C4AB 


EDPTRL 

l*4Av 


ERRPGM 

0000 SOB 

X 

ER.ARA 

002F 


ER. BOX 

001A 


ER.CHN 

000? 


ER»COR 

00 IB 


ER.CTL 

0036 


ER.DIV 

0018 


ER . DP 

0037 


ER.FMT 

0038 


EIR.FNF 

001C 


ER.LAB 

0025 


ER.MAC 

0022 


ER.NEG 

003A 


ER.NOT 

0023 


ER.NXT 

00 ID 


ER.OFL 

0017 


ER„PAR 

002A 


ER.REN 

002C 


er.snp 

0031 


ER. SF'C 

002E 


ER.TER 

0020 


ER.UFL 

0033 


EXTDEL 

002E 


E.HVAL 

0002 


E.TYP 

0000 


E. VAL 

0001 


FONT J 

C5D4 


FCNTK 

C5D5 


FCNTY 

C5E3 


FINDHA 

0000 " 

I 

FOREGR 

C5D0 


FRAGSI 

0400 


FSTDOL 

C48C 


FSTIMT 

C2EC 


HCAREA 

C593 


INC5IY 

0000 s OF 

X 

ISNAME 

0081 •- 

I 

JUNK 

C540 


KEYPTK 



KEYTRK 

C7F7 


LISTON 

G5E2 


MACSTU 

C536 


MNMX 

C5EB 


NAMADR 

009F " 

I 

NAMSET 

0096-' 

I 

NBLKB 

0000 


NL . 

OpOA 


NLPNT 

0000s12 

X 

NXTABC 

0000s13 

X 

NXTL.NK 

0000:14 

X 

OLDCUR 

C49F 


OLDKEY 

L4VD 


OPR.L. 

0014 


OPRSP 

p 


DUTCH 

0000s16 

X 

OUTOFF 

C2E7 


POINTE 

C4A7 


PONOFF 

C5DA 


PRINTH 

0000s19 

X 

PRTYPA 

01DE 

I 

PUTOPN 

0000s1A 

X 

RAMEND 

DFFF 


RMDTMP 

C538 


RUBACK 

0005 
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AFREE 

0000 s 04 

X 

ALLOC 

0000 5 05 

X 

BACKGR 

C5CC 


BALLY 

0000:06 

X 

BOTTOM 

C4A9 


CARTYA 

00005 07 

X 

CHKAZ 

0000 s 09 

X 

CLEARI 

0000 s OA 

X 

CNTRL 

oooc 


CNTRLC 

C5CD 


CNTRLZ 

C5E4 


CPLARE 

Cl 1C 


CSBLOK 

C68D 


CSFLAG 

C260 


CURREN 

C4A5 


c.co 

0011 


C.CY 

OOOD 


C . DP 

0013 


C. XF 

OOOF 


C.XS 

0007 


C.YS 

0009 


DDTON 

C5CE 


DEVCLO 

C579 


DEVCL1 

C57B 


DEVCL4 

C581 


DEVCL5 

C583 


DEVFB 

C5CB 


DEVHCB 

C58F 


DEVNT 

C58D 


DEVTNA 

C5BB 


DEVVA 

C5BD 


DEWAR 

C579 


DEVVC 

C5C.5 - 


DEVVD 

C5C9 


DEVXCD 

C5B3 


DEVYCD 

C5B5 


DOLF'PT 

C2EA 


DUMBST 

C577 


EDLONG 

C812 


EDMODE 

C81C 


EDNCY 

C80E 


EDNEWS 

C4A5 


EDPN 

C806 


EDPO 

C804 


EDSTR 

C81A 


ERABIT 

0002 


ER.ARG 

0034 


ER.ASN 

0015 


ER.CMD 

00 IF 


ER.CIW 

0016 


ER.DEL 

0026 


ER.DIM 

0030 


ER.DSK 

0019 


ER.EDT 

0035 


ER.FOR 

0028 


ER.IMP 

0003 


ER.NAE 

002D 


ER.NAM 

0029 


ER.NUL 

0039 


ER.NUM 

002B 


ER.OPN 

0014 


ER.OVE 

001E 


ER„RET 

0024 


ER.SEP 

0021 


ER.STK 

0004 


ER. SW 

0032 


ER.UNF 

0027 


EVAL 

00005oc 

X 

E.LVAL 

0001 


E.SIZ 

0005 


FCNTH 

C5D2 


FCNTI 

C5D3 


FCNTL 

C5D6 


FCNTV 

C5E0 


FIRST 

C4A3 


FLAGS 

C5CB 


FREE 

0000 s OD 

X 

FREELS 

C5E5 


FWDPTR 

C5E7 


GETLPT 

00005 OE 

X 

INCRO 

C5E9 


INPTTY 

0000 510 

X 

KBLOCK 

C5F1 


KEYFLG 

pjrp p 


KISNL 

0000 s11 

X 

L.F 

OOOA 


MACTOP 

C25E 


MAXFRG 

0040 


NAMBLD 

014F" 

I 

NAMEND 

022E' 


NBLKM 

0001 


NEWBOT 

C810 


NSADDR 

C802 


NUMBUF 

L-4AJ 


NXTVAL 

0000515 

X 

OLDCHR 

C4A0 


OLDXY 

C5EF 


ONEBUF 

C729 


OPRSTK 

C547 


OPRSZ 

C55D 


PCIMT 

C55E 


PI XVAL 

C5ED 


PRINTA 

0000517 

X 

PRINTF 

0000s18 

X 

PRTYPE 

01DB 


PSCAN 

008B 

I 

RAMSTR 

C900 


RANSHT 

C55F 


RUBOUT 

007F 


SAVESP 

C25C 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 


NAM 

-- ZGRA 

SS NAME ROUTINES 







4 * 4 * 4 * 4 ’ 4* !: 

SYMBOL 

TABLE 4 * 4 * 4 - 4 * 4 ~ 








SCNEED 

0004 

SCRWTN 

C7CD 


SFREE 

0000s IB 

X 

SOPRSP 

C53D 

SOPRSZ 

C53F 

STACK 

C0C3 


STAKTO 

cooo 


8TR8I2 

C800 

SUBSTU 

CS34 

TAB 

0009 


TABPNT 

0000 s1c 

X 

TAPBUF 

C4B3 

TAPCON 

C4AF 

TAPPRO 

C4B1 


TBFEND 

i": Ft 33 


TEMPCH 

0000 sID 

TEMPHD 

COCA 

TEMPS 

C2E5 


TEMPUN 

0000sIE 

X 

TMPARG 

C7AD 

TOP 

C818 

TTYBEG 

C261 


TTYEND 

C2E1 


TTYINT 

C2E3 

TTYPTR 

C2E1 

TXTWIN 

P7P v 

L* / Ujw 


UARTFL 

C49C 


USREND 

C5F1 

V3PTR 

.C573 

VDCHAR 

C49E 


VDNLF 

C5CF 


VIPLH 

C545 

VOICED 

C563 

WRMODE 

C5EE 


ZGIM2 

0001 


ZGREND 

C81D 

$AADR 

0010 

$ADDRF 

0007 


$ A DDR.I 

0005 


$ADDRS 

0009 

$ANY 

001A 

$ANYNA 

FFFC 


$ANYVA 

FFFE 


$ARGPT 

0011 

$BGPTR 

OOOF 

$BNDL 

0007 


$CALLE 

OOOD 


$CMDAD 

0018 

$CPLBL 

002A 

$CSBLG 

0028 


$DATAP 

0007 


$ DOL..DE 

0001 

$DOLOO 

0002 

$DVAL 

0000 


SEND 

001C 


$FADR 

OOOE 

$FLAGS 

0002 

$FORBL 

0024 


TF'ORPT 

OOOB 


$FVAL 

0006 

$GOSI.JB 

001A 

% I ADR 

OOOC 


%INPBU 

0018 


$INPPT 

0016 

fIVAL 

0004 

TKEYBL 

0026 


$LENGT 

0001 


$LINPT 

0005 

$LOCPT 

0009 

$MIBBL 

0022 


$MIBEN 

00 IB 


$NAMAD 

OOOA 

$NAME 

OOOA 

fNASCI 

0009 


$NDEL 

0080 


UNLINK 

0003 

$NULL 

0002 

$NVALU 

0005 


$REPEA 

00 IE 


$RVSTU 

0013 

$SAME 

0020 

$SASCI 

OOOA 


fSLEN 

0006 


$STRAD 

0008 

itSTRPT 

0003 

$TAF 

0000 


$TYPE 

0000 


$USE 

0005 

.BLNK. 

0000s0 

3 X .DATA. 

0000* 

X 

.PROG. 

022E 

X 
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TDL 280 
.MAIN. 


CP/M DISK ASSEMBLER VERSION 2.21 

- ZGRASS—THIS IS IT, THE VERY BEST PART OF THE TRIP 


.INSERT A!S.ASM 
©»REMARK / / ” 

# 

& # # #■ 

@ 

<& # ■####■** 

& * 

© * 

© * 

© # 

: " 'fa ,• , . • 

@ - ' * 

© 

© "WHEN YOU CARE ENOUGH TO PROGRAM 

© THE VERY- BEST"' 

© 

© ZGRASS V2.00000000'' 

©BY JAY FENTON, NOLA DONATO, AND TOM DEFANTI 
© (C) 1978 

© 

©/ 

.INSERT As ZRAM.ASM 
.INSERT As10EQU.ASM 

\Limw0-. 

.PREL 

.IDENT A MAIN. 

.INTERN .MAIN. 

.INTERN ABORT 
.INTERN ARGLIN 
.INTERN CMDREN 
i INTERN CMDRES 
.INTERN CMDSKP 
.INTERN CMDSKO 
.INTERN CNTCK 
.INTERN CZCHEK 
.INTERN DOCMD 
.INTERIM DQMORE 
.INTERN ERRPGM 
.INTERN INIDEV 
.INTERN LINER 
. INTERN PRL.INE 
.INTERN RESTART 
.INTERN RETNONE 
.INTERN RETONE 
.INTERN RGBINI 

ft 

7 . / • 4 : 

.EXTERN ALLOC 
.EXTERN ARG 
.EXTERN ARVAL 
.EXTERN CARTYP 
.EXTERN CLEARIT 
.EXTERN CMDTAB 
.EXTERN CORCHK 
.EXTERN CORINI 
. EXTERN .DELMIB 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 

.MAIN. - ZGRASS—THIS IS IT, THE VERY BEST PART OF THE TRIP 


.EXTERN DOCHK 
.EXTERN EVAL 
.EXTERN EVALARG 
.EXTERN FINDHASH 
.EXTERN FREE 
.EXTERN FREEALL 
.EXTERN GETLPT 
.EXTERN INIVDR 
.EXTERN INF'TTY 
.EXTERN ISNL 
.EXTERN ISTERM 
.EXTERN KBMIB 
.EXTERN KILMIB 
.EXTERN KISNL 
.EXTERN KLB 
.EXTERN MAKMIB 
.EXTERN NAMADR 
.EXTERN NAMSET 
.EXTERN NLPNT 
.EXTERN NXTABC 
.EXTERN NXTLNK 
.EXTERN NXTPTR 
.EXTERN NXTVAL 
.EXTERN DUTCH 
.EXTERN PDECA 
.EXTERN PRINT 
.EXTERN PRINTA 
.EXTERN PRINTFF 
.EXTERN PSCAN 
.EXTERN PUTLPT 
. EXTERN SCANL.AB 
.EXTERN SCANNL 
-EXTERN SCLEAR 
.EXTERN SWITCH 
.EXTERN HARTINT 
.EXTERN ZGINT 


0000 x 

00 


NOP 




0001 

C3 0004" 


•JMP 

Z BEG IN 



0004" 

AF 

ZBEGIN: 

XRA 

A 



0005**' 

D320 


OUT 

NORML 



0007 •" 

C3 03DC **’ 


•JMP RES 

TART 



OOOA"' 



. BLKW 

3 


ALIGN LIGHT PEN GOODIE 

0010"' 

0000 

b 

DR 

. WORD 

0 

u 

7 

LIGHT PEN INTERRUPT AE 

0012 •" 

0000 

INTTABs 

. WORD 

0 

7 

NCU SERVICE REQUEST 

0014"' 

0000:2F 


. WORD 

UARTINT 

7 

UART INTERRUPT 

0016/ 

0000:30 

ZGITAB: 

. WORD 

ZGINT 



0013"' 



. BLKB 

4EH 





? ZGRAS 

S NMI ROUTINE 



0066"' 

00 


NOP 




0067 f 

C3 006A" 


JMP 

NMIROU 



006A" 

AF 

NMIROU: 

XRA 

A 



006B"' 

D320 


OUT 

NORML 
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TDL 280 CP/M DISK ASSEMBLER VERSION 2.21 

.MAIN. - ZGRASS-—THIS IS IT, THE VERY BEST PART OF THE TRIP 


006D" C3 03DC-' JMP RESTART 

0070"' C3 00A2-- RESDDT: JMP ABORT 

5 #:■ *&• 2. U -i* ^ ?r* *&* ■H’ U *~*E! R L" U MM A N EJ A L* I 1U N m & *& 


0073" 

3A C5CD 

CNTCKs 

LDA CNTRLC 

5 CHECK "•••C 

0076" 

B7 


URA A 

5 IS ZILCH? 

0077' 

2029 


JRNZ ABORT 

*,MOPE-ABORT 

0079" 

3A C5E4 


LDA CNTRLZ 

;GET CONTROL Z 

007C "■ 

B7 


ORA A 


007D" 

C9 


RET 

?SET CC"'S ONLY 

007E "■ 

7C 

KILIST5 

MOV A,H 

5IGNORE IF ZERO 

007F •" 

B5 


ORA L 


0080 

C8 


RZ 


0081 "■ 

CD 0000sOC 

. . K1 s 

CALL DELMIB 

? ZAP MIB 

0084 

01 OOOF 


LXI B,$BGPTR 

5 CHAIN TO NEXT 

0087 

CD 0000s20 


CALL NXTABC 

n 

7 U tt it 

008A 

20 F5 


JRNZ . „K1 


008C 

C9 


RET 



008D" 

2 A 

C25E 

ZAPCZ* 

LHLD MACTOP 

? CHECK CONTRLZ 

0090" 

3A 

C260 


LDA CSFLAG 

5MIB LIST FIRST 

0093"' 

B7 



ORA A 

5 IS ANY MAYBE? 

0094 •" 

C8 



RZ 

; NAH 

0095"' 

CD 

0000519 


CALL KILMIB 

? ZAP THEM 

0098 "' 

21 

C69A 


LX I H,CSBLOK 

+$CALLER ?POINT AT OLD 

009B"' 

CD 

0000 5 22 


CALL NXTPTR 

;MACTOP THAT CONTROLZEED 

009E"' 

22 

C25E 


SHLD MACTOP 

;AND STORE IT 

00 A1"' 

C9 



RET 



OOA2"' 

31 C0C8 

ABORTS LXI 

8P,STACK 

5 RESET STACK 

00A5"' 

2A C2E8 

..KILLS LHLD 

DOLPLH 

SZAP BACKGROUND 

00 A8"‘ 

CD O07E"' 

CALL 

KILIST 


00 AB "' 

2A C545 

LHLD 

VIPLH 

;FOREGROUND TOO 

00 A E "' 

CD 007E "' 

CALL 

KILIST 


OOB1 

22 C2E8 

SHLD 

DOLPLH 

5 ZERO POINTER 

00B4"' 

22 C545 

SHLD 

VIPLH 

“THIS ONE TOO 

00B7 "' 

CD OOSD "' 

CALL 

ZAPCZ 

", Z AP MIB CHAIN ON CONTRLZ 

OOBA "' 

CD 0000519 

CALL 

KILMIB 

“ ZAP MIB"'S AND CALLERS 

OOBD "' 

AF 

..K3* XRA 

A 

5 NULL OUT CNTRLC 

00 BE"' 

32 CSCD 

STA 

CNTRLC 

H 

7 tt w n 

00C1"' 

32 C5D9 

ST A 

CNTRLO 

5TURN ON ALL PRINT, ETC. 

00C4"' 

32 C5E4 

STA 

CNTRLZ 

?CNTRLZ TOO 

00C7 •" 

32 C260 

STA 

CSFLAG 

? CSFLAG TOO 

OOCA"' 

32 C5CE 

STA 

DDTON 

S SINGLE STEP 

OOGD"' 

32 C5DA 

STA 

PONOFF 

? PRINT WAIT 

OODO"' 

32 C5E2 

STA 

LISTON 

?CONTROL X TOO 

00 D3"' 

32 CS5E 

STA 

PCNT 

■FOR NOLA"'S CODE: 

00D6 "' 

3E01 

MV I 

A, 1 


OODS"' 

32 C49C 

STA 

Y. UARTFL 


OODB "' 

3A C49C 

LDA 

UARTFL 


OODE"' 

A7 

ANA 

A 


OODF"' 

1809 

JMPR 

. . OK 
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TDL 7.80 

CP/M DISK ASSI 

EMBLER VERSION 2.21 

1 

.. MAIN. ~ 

7 GRASS—THIS 

IS IT, THE VERY BEST PART 

OF THE TRIP 

00 E1 •** 

2807 


•JR 7 ..OK 


GOES'' 

AF 


XRA A 


00E4 ’* 

32 C49C 


STA UARTFL 


00E7 •" 

CD 044D" 


CALL INUART 


OOE A x 

21 C261 

. . OK s 

LX I H,TTYBEG 

SSETUP TTY BUFFER 

OOED" 

22 C2E1 


SHLD TTYPTR 


OOFO" 

22 C2E3 


SHLD TTYINT 


OOFS •' 

CD 0000s28 


CALL PRINTFF 


00F6’\ 

5E43 


.ASCI 7 /"-C 


00F8' 

ODOAOO 

/ 



OOFB-* 

FB 


El 


OOFO" 

21 COCC 

7GRASS: 

L.X I H, ARGSTK 

* LOADUP IY 

00 FF ■" 

E5 


PUSH H 


0100." 

FDE1 


POP Y 


0102 ■' 

21 0000 


LXI H,0 

;CLEAR MACTOP 

0105-' 

22 C25E 


SHLD MACTOP 

?FOR KBMIB 

0108“ 

21 002A 


L.. XI H ? ■' # *“ 


01 OB' 

22 C577 


SHLD DUMBST 


010E" 

3A C5CB 


LDA DEVFB 


0111' 

A7 


ANA A 


0112" 

2806 


JRZ « « NOFB 


0114" 

21 C577 


L.X I H, DUMBST 

0117" 

22 C573 


SHLD V3PTR 


0.11A ’ 

CD 0000:28 

. . NOFBs 

CALL PRINTFF 


01 ID" 

3E00 


.BYTE ">",0 

? FORGET THE BEEP 

01 IF" 

2A COCA 


L.HLD TEMPHDR 

? 7AP ALL TEMPS 

0122" 

CD 0000:12 


CALL FREEALL 


0125" 

21 0000 


LXI H,0 

'NULL LIST HEADER 

0128" 

22 COCA 


SHLD TEMPHDR 


012B" 

CD 019F" 


CALL DNULLS 

? ZAP ALL *NULL NAMES 

012E" 

CD 0133" 


CALL 7LINEP 

? WAIT FER LINE 

0131" 

18C9 


JMPR 7GRASS 

? THAT " S ALL. 

0133" 

21 C5F1 

7LINEP: 

LX I H,KBLOCK 

’KBM MIB&BUFFER 

0136" 

CD 0000:18 


CALL KBMIB 


0139" 

21 C60C 


LX I H, K.BLOCK+$MI BEND 5 SET BUFFER ADDR 

013G" 

CD 0073" 

7LOOP: 

CALL CNTCK 

? CHECK •-•C 

01..3F" 

CD 0000:15 


CALL INPTTY 

* GET A LINE 

0142" 

E5 


PUSH H 


0143" 

F5 


PUSH PSW 


0144" 

CD 01SC" 


CALL STUFFCHK 

• SEE IF KEYPAD/CONTROLS 

0147" 

3A C5CC 


LDA BACKGR 

; BACKGROUND OFF < "-B> 

014A" 

B7 


ORA A 


014B" 

CC OOGO s OD 


C7 DOCHK 

; DO ANY DOLOOP STUFF 

014E " 

FI 


POP PSW 


014F" 

El 


PUP H 


0150" 

20EA 


JRN7 7LOOP 

?IF NOT THERE, WAIT 

0152" 

CD 01D4" 

7GRIN: 

CALL LINER 

S PROCESS I T 

0155" 

CD 0000:17 


CALL ISTERM 

5 CHECK TERMY 

0158" 

B7 


ORA A 

?RET IF NULL 

0159" 

20F7 


JRN7 7GRIN 

? ELSE PROCEED 

01 SB" 

C8 


R7 

5 RETURN , 


? *STUFFCHK ?CHECKS IF MACRO OR SUBR PENDING 

? FROM KEYPAD OR CONTROL COMMAND 
013C" E5 ' STUFFCHKs PUSH H 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 


MAIN. - 

ZGRASS—-THIS 

IS IT, THE VERY BEST PART 

OF THE TRIP 

015D "' 

D5 


PUSH D 


015E ■- 

21 C534 


LXI H,SUBSTUFF 


0161 •" 

CD 0000s22 


CALL NXTPTR 


0164 

28 OC 


JRZ ..MAC 

?NUTTIN TO DO 

0166" 

01 0000 


LXI B,0 


0169' 

ED43 C534 


SBCD SUBSTUFF 


016D" 

01 0172-" 


LXI B,..MAC 


0170" 

C5 


PUSH B 

5 RET ADDR 

0171" 

E9 


PCHL 

”, GO DOIT 

0172-' 

21 C536 

..MAC: 

LX I H,MACSTUFF 

?ANY MACRO TO DO 

0175**‘ 

CD OOOOs22 


CALL NXTPTR 


0178-' 

C4 022C' 


CNZ DOCMD 

5 WELL, DO IT THEN 1 

017B-" 

D1 


POP D 


017C"' 

El 


POP H 


017D-" 

C9 


RET 




5 *PRCHEK~CHECKS IF CURRENT LINE NEEDS PRLINE 

017E •" 

3A C5E2 

PRCHEK: 

LDA LISTON 


0181 •" 

B7 


ORA A 


0182-' 

200D 


JRNZ PRLINE 

;do it 

0184-' 

3A CSCE 


LDA DDTON 


01871 

B7 


ORA A 

;DEBUG ON? 

0188" 

08 


RZ 


0189 

ED4B C25E 


LBCD MACTOP 

? ONLY IF MACRO 

018D" 

OA 


LDAX B 


018E •" 

FE22 


CPI m IBBLK 


0190"' 

CO 


RNZ 

? SKIP IT 



? *PRLINE—PRINTS CURRENT 

• LINE OUT* 



n 

? 

A.K» A. ARGLIN 


0191 •" 


ARGLIN: 



' 0191" 

E5 

_ PRLINE: 

PUSH H 


0192 •" 

CD 0000;13 


CALL GETLPT 

5 GET THAT LINE 

0195-" 

3E0 A 


MVI A,NL 

? PRINT TILL NL OR NULL 

0197 •" 

CD 0000;27 


CALL PRINTA 


019 A •" 

CD 0000;IF 


CALL NLPNT 


019D •" 

El 


POP H 


019E 

C9 


RET 




5 ttDNULLS-—ZAPS ALL $NULL NAMES* 

0T9F •' 

3E41 

DIMULLS s 

MVI A, -'A"' 


01A1"' 

Fp; 

..NCHR s 

PUSH PSW 

”SAVE CURRENT CHAR 

01A 2 

CD oooo;10 


CALL FINDHASH 

? GET FWA 

01 AS" 

E5 

..NEXL: 

PUSH H 

? SAVE! POINTER IN IX 

01A6 

DDE 1 


POP X 


01A8-" 

CD 0000;21 

..NEXHS 

CALL NXTLNK 

”GET NEXT 

01AB-" 

281A 


,JRZ . .NEXA ' 

” NONE—TRY- NEXT LETTER 

01 AD" - 

7E 

..NEXN: 

MOV A,M 


01AE ' 

FE02 


CPI $NULL 

?IS IT $NULL? 

01 BO " 

20F3 


JRNZ „.MEXL 

5 NOPE, CHAIN ON 

01B2 "' 

E5 


PUSH H 

;SAVE CURRENT 

01B3" 

CD 0000;21 


CALL NXTLNK 

”GET NEXT LINK 

01B6' 

DD'7503 


MOV $NLINK(X),L 

5 CHAIN OUT 

01B9-" 

DD7404 


MOV $NLlNK+f(X) , 

H 

01BC-" 

El 


POP H 

5 GET H mCK. 





TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 / PAGE 


MAIN. - 

ZGRASS—THIS 

IS IT, THE VERY BEST F'ART 

OF THE TRIP 

01 BEK 

F5 


PUSH F'SW 

? SAVE CC-'S FROM NXTLNK 

01 BE"' 

CD 0000s11 


CALL FREE 

5FREE IT UP 

01C1-' 

DDES 


PUSH X 

5 RESTORE HL 

01C3-' 

El 


POP H 


01C4 

FI 


POP PSW 

? WASZERO? 

01C5-' 

20 E1 


■JRNZ . . NEXH 


01C7-' 

FI 

..NEXA5 

POP PSW 

5 GET CURRENT LETTER BACK 

01C8" 

FE24 


CPI 5 WAS $? 


01C A •' 

Ufc* 


RZ 

5 YUP-DONE 

OICB" 

L. 


I NR A 

?A GOES TO B, ETC. 

01 CC*“ 

FESB 


CPI •-z-' + i 


01CE 

20D1 


JRNZ ..NCHR 

? DO IT 

01 DO- 

3E24 


MVI A, 


01D2 -’ 

18CD 


JMPR ..NCHR 




? *LINEP, THE LINE PROCE 

:SSOR, FOLLOWS 

01D4-' 


LINEP5 

?CHECK FOR CNTC 


01D4 -’ 

CD .0073" 


CALL CNTCK 


01D7- - 

CD 0000s13 


CALL GETLPT 

“GET LINE POINTER 

01 DA-' 

CD OOOOs16 


CALL ISNL 

?IS END OF COMMAND? 

01DD-' 

C8 


RZ 

? YUP, RETURN 

01DE-' 

FE2E 

■ ■ i ■ 

CPI -'. -' 

?COMMENT? 

01E0" 

2008 


JRNZ LINOO 

“NO 

01E2-' 

CD 0000:2C 

LINO25 

CALL SCANNL 

5 SKIP TO THE NEXT LINE 

01E5-- 

CD OOOO s 2A 

LINOS5 

CALL PUTLPT 

* AND STUFF HL 

01ES •" 

18E A 


JMPR LINER 

* AND TRY AGAIN 

01E A 

CD 0000 s1B 

LI NO O.s 

CALL KLB 

?ZAP BLANX 

01ED- 

CD 0000 s 07 


CALL CARTYP 

?CHECK FOR LABEL 

01F 0 -' 

3006 


JRNC LIN01 

■ ITS NOT 

01F2-' 

CD OOOOs2B 


CALL SCANLAB 

5 SCAN PAST I T 

01F5-' 

C8 


RZ 

5 RETURN IF ~>DELIM 

01F & -' 

18ED 


JMPR LI.NOS 

5 AND TRY AGAIN 

01F8-' 

CD 017E -' 

LINOis 

CALL PRCHEK 

”SEE IF LINE WANTS PRINTED 

01FB-' 

CD 00005 IB 


CALL KLB 

5 ZAP LEAD BLANX 

01FE-" 

CD OOOOsIE 


CALL NAMSET 

;de->first CHAR, 





s HL-->TERMINATOR 

0201 -' 

CD OOOOs16 


CALL ISNL 

5 CHECK TERMINATOR 

0204 -' 

281C 


JRZ ..CMD 

; IS ?, NL OR NULL 

0206 •- 

FE20 


CPI BLANK 

5ISNL LOADS A 

0208 •- 

2818 


JRZ ..CMD 


020A -' 

FE2C 


CPI 

5 ALLOW COMMAS TOO 

020C -' 

2814 


JRZ ..CMD 


020E -' 

F’E2E 


CPI EXTDEL 

5 SWITCH? 

0210-' 

2810 


JRZ ..CMD 


0212 •- 

FE28 


CPI •-<•" 

1 ARRAY? 

0214 -' 

CC 0000 s 29 


CZ PSCAN 


0217-' 

7E 


MOV A,M 

5 PICKUP CHAR 

0218 •' 

FE3D 


CPI 

5 -=-'S? 

021 AO 

2002 


JRNZ ».AASN 

”TRY IT ANYWAY 

02 Id 

365F 

. .OK5 

MVI Mv AASN 

5 STUFF A AASN 

02 IE -' 

EB 

..AASMS 

XCHG 

;RESTORE H 

02 IF-' 

C3 OOOOsOF 


...IMP EVALARG 


0222-' 

AF 

..CMOS 

XRA A 

;TRY SYS NAMES 

0223-* 

CD OOOOsID 


CALL NAMADR 

“IFZSET, GOOD 
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TDL Z80 

CP/M DISK ASS 

EMBLER VER 

SIGN 2.21 


.MAIN,, 

ZGRASS—THIS 

IS IT, THE VERY BEST PART 

OF THE TRIP 

L..1NEP-~~THE LINE PROCE 

SSOR 



0226 •- 

2804 


JRZ DOCMD 


0228 

CD 030A "' 


CALL ERRPGX 


022B ■■ 

23 


„BYTE ER.NOTF 




? ENTRY 

TO PROCESS ANYTHING GIVEN NAMBLOK ADDR 

0220 

DDES 

DOCMD: 

PUSH X 

5SAVE X 

022E 

FDE5 


PUSH Y 

? AND Y 

0230 •' 

3A C260 


LDA CSFLAG 

■ONLY STORE SP 

0233' 

B7 


ORA A 

?IF CSFLAG OFF 

0234 - 

2012 


JRNZ ..NOCS 

?-DON'T DO IT 

0236 - 

ED73 0250 


SSPD SAVESP 


023A - 

DD2A C55B 


LIXD OPRSP 

5 SAVE OP STACK PTR 

023E "' 

DD22 C53D 


SIXD SOPRSP 

? FOR ERROR RECOVERY 

0242*" 

3A C55D 


LDA OPRSZ 

?DITTO FOR SIZE 

0245"' 

32 C53F 


STA SOPRSZ 

"OF OPR STACK 

0248- 

DD21 026F •" 

..NOCS: 

LX I X,RETONE 

5 PUSH RET ADDR 

024C "' 

DDES 


PUSH X 


024E *" 

1A 


LDAX D 

;GET FWA 

024F-' 

■ FE18 


CPI fCMDADR 

?IS COMMAND? 

0251 "' 

203A 


JRNZ DOMACRO 

;NOPE, TRY MACROS 

0253-' 

EB 


XCHG 

; DE-->TERM INA7 0R, 

0254 "' 

60 


MOV H,B 

?BC-->PO INTER TO CODE 

0255-' 

69 


MOV L,C 


0256 -' 

CD 0000:22 


CALL NXTPTR 

* GO TO IT 

0259 ■" 

EB 


XCHG 

? DE->CODE, HL--'>TERM 

025A 

D5 


PUSH D 

?DE IS DISPATCH ADDR! 

025B -' 

C9 


RET 

“GOTO IT, CMDREN STILL 




CMDREN—GENERAL 

END OF COMMAND STUFF 



? DETAIL 

S s 




H 

7 

DEFAULT RETURN I 

S TO RETONE 



a 

7 

WHICH RETURNS 

INTEGER 1 



* 

RETNONE RETURNS 

WHATEVER A8<DE HAVE 



7 

CMDSKO SETS UP 

R#TO REDO CURRENT LINE 



a 

7 

CMDSKP SETS UP 

TO SKIP REST OF LINE 


.0250'' 

CD 0000s13 

CMDSKO: 

CALL GETLPT 

? GET OLD LINE PTR 

025F -' 

2B 


DCX H 

?BACKUP ONE IF NOT 

0260 -' 

7E 


MOV A,M 

5 FIRST LINE 

0261 

B7 


ORA A 

5 IE, HL->NL 

0262 y 

200A 


JRNZ CMDRES 

? IF HL-->NULL, 

0264 x 



I NX H 

“ FIX" IT 

0265 

1807 


JMPR CMDRES 


0267"* 

CD 0000s2C 

CMDSKPs 

CALL SCANNL 

SENTER HERE TO SKIP 

026A' 

B7 


ORA A 

5 DCX IF NON-NULL. 

026B "' 

2801 


JRZ CMDRES 

» 

7 n ttt* 

026D " 

2B 


DCX H 

?REST OF LINE 

026E -' 

Cl 

CMDRESs 

POP B 

SENTER HERE TO STRIP 
•off RET TO RETONE 

026F -' 

3E04 

RETONE: 

MVI A,$IVAL. 

5 INTEGER 1 IN DE 

0271' 

11 0001 


LX I D, 1 

'AND FALL THRU 

0274' 

1801 


JMPR CMDREN 


0276' 

Cl 

RETNONE 

s POP B 

"DUMP RET TO RETONE 


7'08 
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0277"', F5 

0278" CD 0000“2A 

027B " CD 01SC" 

027E" CD 0000!OA 

0281" 3004 

0283" CD 0311" 

0286" IB 

0287" 

0287" FI 

0288" FDE1 
028A" DDE1 
028C" C9 


CMDREM5 PUSH PSW 

CALL PUTLPT 
CALL STUFFCHK 
CALL CORCHK 
CERROR ER.CORFU 
+ .JRNC . . 0001 

+ CALL ERRPGM 

+ .BYTE ER. CORF' 

■■i-» . 0001 s 3 

POP PSW 
POP Y 
POP X 
RET 


SAVE A 

STUFF HL INTO $LINPTR 
ANYBODY PENDING? 


RESTORE A 
STILL ON STACK 


RESTORE X 




•SDOMACRO—MACRO EXECUTION STARTUP* 

NOT A GOOD ENTRY POINT (STUFF ON STACK) 


028D" 

CD 0000S2A 

DOMACRQ 5 

CALL PUTLPT 

* SAVE CURRENT POINTER 

0290 *'* 

E5 


PUSH H 

5 SAVE H FOR ARRAYZ 

0291 " 

62 


MOV H,D 

;POINT HL AT NAMEBLOCK 

0292-' 

6B 

CD 00005 23 *1 


MOV L,E 

?LEAVE IN DE FOR ARRAYS 

5 GET STRING FWA 

02V y - 


XALL NX 1vAL 

0296 " 

7E f 

"MOV A, M 

? GET TYPE 

0297" 

FE08 

b ^ 

CPI $STRADR 

SIS STRING? 

0299 

204E y>«|% 

JRNZ DOARA 


029B " 


POP H 

SGET HL BACK 

029C 

DDES 


PUSH X ; 

MOV 

C6»>TEXTDEL0rtA^ 

5 SAVE X 

029E " 
029F " 

7F 

FE2E 

_ 

SCHECK FER .B 

SIS IT? 

02 A1 " 

201A 


JR^ . . FORE 

5 NOPE, REGULAR CALL 

02 A3 " 

22 


INX H 

5 SKIP EXTDEL 

02A4 " 

<itl C 1 


INX H 

5 SKIP B 

02 A5" 

CD 00005 1C 


CALL MAKMIB 

?BUILD MIB 

02 A 8 " 

ED4B C2E8 


LBCD DOLPLH 

S GET DDL LISTHEAD 

02 AC" 

DD710F 


MOV *BGPTR' ( X ) , C 

SLINK IN 

02AF " 

DD7010 


MOV $BGPTR+1(X), 

B 

02B2" 

DDCB02D6 


SET $DOLOOP,fFLAGS(X) 5 SAY IS DOLOOP"D 

02B6 " 

DD22 C2E8 


SIXD DOLPLH 

SLINK US IN 

02BA" 

DDE 1 


POP X 

5 RESTORE X 

02BC " 

C9 


RET 

5 RETURN SUCCESS 

02BD" 

CD OOOOs1C 

. . FORE: 

CALL MAKMIB 

5 CALL MIB MAKE ROUTINE 

02C0 " 

CD OOOOs2A 


CALL PUTLPT 

5 SAVE EOL FOR RET TIME 

02C3" 

ED4B C25E 


LBCD MACTOP 

5 GET CURRENT MACRO 

02C7" 

DD710D 


MOV $CALLER(X),C 

: 5 POINT TO CALLER 

02C A " 

DD700E 


MOV $CALLER+1(X) 

5 B 

02CD " 

DD22 C25E 


SIXD MACTOP 

5MACTOP IS US NOW 

02D1" 

DDE 1 


POP X 


02D3 " 

F5 


PUSH PSW 

5 EXTRA FOR GOSUB COMPATS 

02D4" 


DOMORE 5 


SENTRY FROM GOSUB 

02D4 " 

CD 01D4" 


CALL LINEP 

5 PROCESS LINE. 

02D7 " 

CD 0000517 


CALL ISTERM 

S CHECK TERMY 

02DA " 

B7 


ORA A 

SCHECK FER NULL 

02DB" 

2007 


JRNZ ..CZC 

S NOPE 

frT.'TVn 

m 


pup n 

! HO SI IP Fi'PTURN ( ? ) 
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02DE •- 

CD 0000:2E 


CALL SWITCH 

? SWITCHEROO 

02E1 

G3 0276“* 


JMP RETNONE 

? AND PASS A?<DE BACK 

02E4 

CD 02F8-" 

.„CZC: 

CALL CZCHEK 

CHECK DDT8«CNTRL8 

02E7 ’■ 

18EB 


JMPR DOMORE 

?CONTINUE 



? ARVAL 

WANTS DE->NAMEBLOCK, HL~>AFTER PAREN 

02E9 y 

El 

DOARA: 

POP H 

5 GET PTR TO ARCS BACK 

02 E A"' 

FE10 


CPI $AADR 

NZERROR ER.MACC 

5 IS AFURAY 

02EC - 

2804 


•JRZ . .. 0002 


02EE-" 

CD 0311" 

4* 

CALL ERRPGM 


02F1 •" 


4 

.BYTE ER.MAC 


02F2 


+..0002: 

1 


02F2 

CD 0000:06 


CALL ARVAL 

3 DO IT 

02F5 *•' 

C3 0276" 


JMP RETNONE 

5 LEAVE WITH ASkDE SETUP 



?*CZ CHEK—CHECKS FOR CONTROL Z AND DEBUG 

02F8 

3A C260 

CZCHEKs 

L.DA CSFLAG 


02FB" 

B7 


ORA A 


02FC" 

2006 


.JRNZ ..NOCZ 

3 DON ' T CHECK DEBUG IF 

02FE *’ 

3A CSCE 


LDA DDTON 

5 IN CNTRLZ ALREADY 

0301 •" 

B7 


ORA A 

5 IS DEBUG ON? (CNTRL.D) 

0302 •" 

2070 


•JRNZ ZSIN 


0304 ■" 

CD 0073 x 

. .NOCZ: 

CALL CNTCK 

5 CHECK "'EM 

0307 < 

206B 


JRNZ ZSIN 


0309 

C9 


RET 




? TERROR- 

--ERROR MESSAGE HANDLER & CNTLS HANDLER* 

030A 

El 

ERRPGX: 

POP H 

3 POP CALL RET 

030B- - 

DDES 


PUSH X 


030D-" 

FDE5 


PUSH Y 


030F •" 

1805 


JMPR ERRFOO 

3 KLUDGE FOR LI NEP ERRME 

0311 "' 

F*“» 

ERRPGM: 

XTHL 


0312 •" 

ED7B C25C 


L.SPD SAVESP 

5 FIX STACK UP 

0316-' 

ED4B C53D 

ERRFOO: 

LBCD SOPRSP 

?RESTORE OP STACK 

031 A' 

ED43 C55B . 


SBCD OPRSP 

3 POINTER 

03 IE"' 

3A C53F 


LDA SOPRSZ 

5 DITTO FOR STACK 

0321"' 

32C55D 


STA OPRSZ 

5 BYTE 

0324" 

yp 


MOV A,M 

5 GET ERROR NUMBER 

0325 •" 

F5 


PUSH PSW 

5 SAVE ERROR NUMBER 

0326"' 

32 L-72A 


STA ONEBUF+1 

3 STORE ERROR NUMBER 

0329 -' 

3A C729 


LDA ONEBUF 

3 GET ONERROR FLAG 

032C -' 

B7 


ORA A 

5 IS Z ILCH? 

032D •" 

2803 


JRZ .„PRNT 

5 YUP-NORMAL 

032F"' 

FI 


POP PSW 

3 NOPE, ONERROR TIME 

0330 •" 

1817 


JMPR ..CHK2 


0332 "' 

CD 0191"' 

. .PRNT: 

CALL PRLINE 

3 PRINT LINE IN ERROR 

0335" 

CD 0000:28 


CALL PRINTFF 


0333 •" 

3F3F4552524F 

.ASCIZ /??ERROR 

#/ 

0342"' 

FI 


POP PSW 


0343 "' 

CD 0000:25 


CALL PDECA 

“A HAS ERROR MESSAGE 

0346"' 

CD 0000:IF 


CALL NLPNT 
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0349- 

ED4B C25E 

..CHK25 

LBCD MACTOP 

?CHECK IF KB LEVEL 

034D 

OA 


LDAX B 


034E-* 

FE2.6 


CPI $KEYBLOCK 

5 IS IT? 

0350.*"' 

03 00A2" 


•JMP ABORT 

5 TEMPORARY TILL BELOW WORKS 

0353" 

CA 00A 2"' 


JZ ABORT 

?YEAH, ABORT 

0356" 

3A 0260 


L.DA CSFLAG 

5 IS SECOND TIME THRU? 

0359 •- 

B7 


ORA A 

SI.E. IS CSFLAG SET? 

035A •" 

200C 


JRNZ ..TRY 

5 YUP, DON •" T CHANGE PTR 

035C •- 

CD 0000513 

. . GLF'T 5 

CALL GETL.PT 

5 GET CURRENT LINE 

035F" 

22 C72B 


SHLD ONEBUF+2 

;STORE LINE POINTER 

0362 ' 

CD 0000520 


CALL SCANML 

"TO NEXT ONE 

0365 •" 

CD OOOOs2A 


CALL PUTL.PT 

5 SAVE POINTER 

0368" 

ED7B 0250 

„.TRYs 

LSF'D SAVESP 

? RESTORE STACK 

036C *" 

FDE1 


POP Y 


036E •" 

DDE 1 


POP X 

“RET STILL ON STACK 

0370" 

21 01D4 •" 


LX I H,LINER 

;FAKE NEW RET 

0373*" 

E5 


PUSH H 

"ONTO STACK 

0374" 

CD 008D" 

ZSINs 

CALL ZAPCZ 

;CLEAN UP MIBS IF NECESSARY 

0377 -• 

21 C68D 


LX I H,CSBLOK 

?BUILD MIB 

037A ' 

CD OOOOs18 


CALL KBMIB 


037ID" 

8628 


MVI M,$CSBLOK 

5 TAG IT 

037F •" 

AF 

..SWIN 5 

XRA A 

* NULL ON/OFF- S 

0380" 

32 C5D9 


STA CNTRLO 

*LIKE THIS 

0383 •- 

32 C5E4 


STA CNTRLZ 

5 ZAP CNTRLZ 

0386 * 

3A 0729 


LDA ONEBUF 

“, ONERROR ON? 

0389" 

B7 


ORA A 


038A ■" 

202B 


JRNZ ..ONDO 

SWELL, DO IT 

0380 •' 

3E23 


MVI A, 

SPOT OUT HASH 

038E •- 

32 0260 


STA CSFLAG 

5 SET CSFLAGttO 

0391/ 

CD 0000524 


CALL OUTCH 


0394" 

21 06A8 


LX I H,CSBLOK+$MIBEND ? BUFFER ADDR 

0397 •" 

3600 


MV I M,0 

5 NULL COUNT 

0399"' 

CD 0073•" 

..SWT5 

CALL CNTCK 

5 CHECK - C 

039C'" 

CD OOOOs15 


CALL INPTTY 

5 GET A LINE 

039F-" 

20 F 8 


JRNZ ..SWT 

SWAIT FER IT 

03 A1 

23 


INX H 

5 POINT PAST COUNT 

03A2 " 

7E 


MOV A,M 

5 NULL LINE? 

03A3" 

B7 


ORA A 


03A4 

2820 


JRZ ..BACK 

5 YEP- FAKE RETURN 

03A6 " 

CD 01D4" 

..SGO: 

CALL LINER 

S DO THE DEED 

03A9"' 

CD 0000517 


CALL ISTERM 

5 CHECK TERMY 

03AC‘- 

B7 


ORA A 


03AD ■" 

20F7 


JRNZ .„SGO 

5 STUFF LEFT 

03AF - 

21 G6A9 


LXI H,CSBLOK+*MIBEND+1 5 SET LINEPTR 

03B2" 

CD OOOOs2A 


CALL PUTLP.T 

SLIKE THIS 

03B5 

1808 


JMPR ..SWIM 

5 MORE TO GO 

03B7 " 

32 0260 - 

i „ONDOs 

STA CSFLAG 

5 SET CSFLAG 

03BA " 

AF 


XRA A 

5 CLEAR ONEBUF 

03BB " 

32 0729 


STA ONEBUF 


03BE ' 

11 C6A9 


LX I D,CSBLOK+$MIBEND+1 

03C1 

21 C72D 


LXI H,ONEBUF+4 


0304 •" 

01 0080 


LX I B,128 


03C7" 

EDBO 


LDIR 


03C9 •" 

CD 01D4-" 

.. 0000 5 

CALL LINER 

SEXECUTE THE LINE 

03CC 

CD 0000517 


CALL ISTERM 

5 DONE? 
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03CF •" 

B7 

ORA A 


03D0" 

20F7 

■JRNZ . . 0000 

; MORE 

03D2" 

AF 

..BACK? XRA A 

SCLEAR GSFLAG 

03133 *’ 

32 C5E4 

ST A CN'fRLZ 

”AND CNTRLZ 

03D6 

32 C260 

STA GSFLAG 

; SO CAN ••"■Z AGAIN 

03 D9 *“ 

C3 0000 s 2E 

JMP SWITCH 

5 BACK TO INTERRUPTEE 




5 ^RESTART—- 

■SYSTEM RESET CODE* 

03DC 


.MAIN.5 



03DC - 

F3 

RESTART: 

DI 

?DISABLE INTERRUPTS 

03DD •" 

31 C0C8 

LX I 

SP i STAC 

:K 

03E0 •- 

AF 

XRA 

A 

5 AND ZAP INMOD 

03E1 •" 

D30E 

OUT 

INMOD 

? « » » 

■03E3-< 

D320 

OUT 

NORML.. 


03E5- 

D32A 

OUT 

2AH 


03 E 7 •- 

D308 

OUT 

P* 


03 E 9 •' 

D3F9 

OUT 

0F9H 

5 32-64 INTERNAL 

03EB" 

D3FA 

OUT 

OF AH 

? 0-32K WRITE ENABLED 

03ED"' 

D3FB 

OUT 

OFBH 

5 32-64 WRITE ENABLED 

03EF •- 

•pF 

CM A 



03F0 •" 

D324 

OUT 

LEDS 

5 CLEAR LEDS 

03F2 •" 

3E1F 

MV I 

A, 1FH 

5 Y)-20K EXTERNAL 

03F4"' 

D3F8 

OUT 

0F8H ' 




? HYPE MUSIC 

AMPLITUDE 

03F6 -■ 

3E3F 

MV I 

A,03FH 


03F8-' 

D322 

OUT 

BSAUD 


03F A '" 

CD 044D-" 

CALL 

INUART 




5 INITIALIZE 

! INTERRUPTS 


03FD 

21 0016" 

LX I 

Hj ZGITAB 

0400" 

7C 

MOV 

A, H 


0401 

ED47 

STA I 



0403 

7D 

MOV 

A ? L 


0404 

D30D 

OUT 

INFBK 


0406 

ED5E 

I M2 



0408 

SECS 

MV I 

A, 200 

5 PROGRAM VERTICAL INTERRUPT 

040A 

D30F 

OUT • 

INLIN 


040C 

3E08 

MVI 

A, 8 


04 OE 

D30E 

OUT 

INMOD 

?ENABLE SCREEN INTS, 





”, AND I NT EVERY Ml 

0410 

21 COCA 

LX I 

H,CLEARS 


0413 ■" 

01 1F35 

LX I 

B j RAMEND-CLEARS 5 LENGTH OF USER 





? STORAGE 

0416-' 

CD 0000508 

CALL 

. CLEARIT 

?PROPAGATE ZEROES 

0419" 

CD 0000 s OB 

CALL 

. CORINI 

?STRUCTURE USER MEMORY 

041C-' 

CD 0000514 

CALL 

INIVDR 

? SET UP ONSCREEN TYPING 



5 NOW 

BUILD INTEGER A~Z ENTRIES/HASH TABLE 

041F -' 

3E41 

MVI 

A ’ " A" 

?START WITH A 

0421 -' 

21 C2EC 

LX I 

H ? FS'T I NT 

;FIRST INTEGER ADDRESS 

0424" 

11 0000s 09 

LX I 

D,CMDTAB 

?TABLE OF COMMAND ADDRS 

0427 •" 

F5 

..REST! PUSH 

1 PSW 


0423"' 

360E 

MVI 

M,fFADR 

? SET TO IVAL 

042A-' 


I NX 

H - . 





TDL Z80 CP/M DISK ASSEMBLER V 

VERSION 2.21 


PAGE 12 

.MAIN. - ZGRASS—THIS IS IT, 
LINEP—THE LINE PROCESSOR 

THE VERY BEST PART 0 

F THE TRIP 



042B' 

3601 

MVI M,1 ? SIZE IS 1 BLOCK 

042D"’ 

23 

INX H 

042E “* 

3680 

MVI M,$NDEL 5SET BYTE 2 TO $NDEL 

0430 *“ 

01 0007 

LX I B, $NASC 11 --2 ? PUT IN NAME 

0433" 

09 

DAD B 

0434 •" 

77 

MOV M,A 5 LIKE THIS 

0435-' 

01 0005 

LX I B, ,14-~$NASCI I 5->T0 CMD PLACE 

0438 

09 

DAD B 

0439 *“ 

EB 

XCHG 

043A " 

01 0002 

LX I B,2 

04.3D •" 

EDBO 

LDIR 5 COPY CMDTAB ENTRY 

043F “* 

EB 

XCHG ? HL<“>DE 

0440 x 

FE24 

CPI ;DID r? 

0442' 

2339 

■JRZ REBDOM 5 DONE 

0444" 

3C 

INR A 5 A CHANGES TO B, ETC. 

0445" 

FE5B 

CPI 'Z' + i 1 DONE? 

0447' 

20DE 

JRNZ ..REST 

0449' 

3E24 

MVI A, "t" 

044B' 

18DA 

JMPR ..REST 5 DO $ 

? ROUTINE TO INITIALIZE ADDON UART 

044D" 


INUART s “ ‘ - ‘ % ,- 

? RESET INTERRUPT VECTOR 

044D' 

3E12 

MVI A,12H 

044F 

D321 

OUT VCTR 

0451 “* 

C9 

RET ? TEMP 

0452“’ 

3EAE 

MVI A,OAEH 

0454 “* 

D32B 

OUT AUARTS 

0456 “* 

3E40 

MVI A, 4OH 

0453 “’ 

D32B 

OUT AUARTS 

045A' 

3ECE 

MVI A,OCEH 

045C “* 

D32B 

OUT AUARTS 

045E “* 

3E27 

MVI A,27H 

0460 “‘ 

D32B 

OUT AUARTS 

? SET BAUD RATE AT 2400 

0462“* 

3E38 

MVI A,00111000B 

0464 “* 

D323 

OUT BAUDSEL 

0466“* 

21 C4B3 

L.X I H, TAPBUF 

0469“* 

22 C4AF 

SHLD TAPCON 

046C “* 

22 C4B1 

SHLD TAPPRO 

046F 

C9 

RET 



5 ROUTINE TO INITIALIZE DEVICE VARIABLES! 

04*70“* 

11 C579 

RGB I Mis LX I D, DEWAR 5 DE-INITIAL DEVICE TAB!. 

r~ 

0473“* 

21 .0493' 

fc. 

L XI H, INI DEV ? HL.== INITIAL VALUES 

0476 “* 

01 001A 

LX I B,ENDDEV-INIDEV 

0479“* 

EDBO 

LOIR 

0478“* 

FB 

El 

047C“* 

€9 

RET 

047D “* 

CD 0470' 

REBDONs CALL RGBINI 

0480 “* 

C3 00A2' v 

JMP ABORT 

0483 “* 

CD 0000528 

CALL PRINTFF 

0486 “’ 

OC 

.BYTE CNTRL 

0487“* 

475241464958 

.ASCIZ /GRAFIX 

048D “’ 

ODOAOO 

/ . '• . ' 







